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Editorial du Président 
par Bernard Legrand 


Chaque nouveau membre de l'Académie Française se doit de faire l'éloge de 
celui auquel il succède. Nous ne sommes pas, hélas, l'Académie, mais venant de 
succéder 4 Bernard Mailhol à la présidence de notre association, je mesure 
l'ampleur de la tâche. 

Car enfin, on peut se demander : 

"Pourquoi une association pour la promotion d'APL ?" 

Il n'y a pas, que je sache, d'association pour la promotion de COBOL, pas plus 
que de C++ ni de JAVA. Pourquoi APL ferait-il exception ? 

Les premiers congrès APL se tenaient dans la liesse, avec l'espoir de voir ce 
séduisant langage conquérir des esprits supposés cartésiens et enthousiastes. Le 
temps a passé, et la stratégie conquérante s'est muée peu à peu en tactique 
défensive, les associations d'APListes successives défendant un dernier carré 
chaque fois plus réduit. 

Serions-nous en train de vivre une sorte de "Fort Alamo" ou de "Camerone", et 
de livrer bataille à des hordes d'envahisseurs sauvages et incultes ? Même pas ! 
Fini le temps des agressions contre APL, dans lesquelles nous puisions la force 
de faire toujours mieux : le dernier carré de fidèles vieillit et s'étiole dans 
l'indifférence générale : on nous ignore. 

On n'attaque plus APL parce qu'il ne dérange plus : APL serait-il en état de mort 
clinique ? 

Ma réponse est multiple : 


1 — Une notation algébrique ne saurait ni vieillir ni mourir, et nous devrions être 
confiants dans sa pérénnité. 

2 — Mais les produits les mieux conçus, les plus intelligents, meurent vite s'ils ne 
sont pas relayés par un succès commercial marquant. Ils sont balayés par des 
produits parfois médiocres mais puissamment supportés. N'est-ce pas Bill ? 

3- Qu'ai-je fait, 
qu'as-tu fait, 
qu'a-t-il (ou elle) fait, 
qu'avons-nous fait pour faire vivre APL ? Chacun de nous doit se poser la 
question. 

Les quelques membres qui, comme moi, vivent de l'APL, croient avoir fait de 

leur mieux, et ce n'est pas par hasard que c'est en leur sein qu'on a puisé les 

derniers présidents d'AFAPL. Mais avons-nous vraiment TOUT fait ce qui était à 

portée de nos modestes moyens ? 

Quoi qu'il en soit, ce n'est pas suffisant. Pour que l'association vive, il faut que 

ses membres puissent s'y reconnaître, et s'en nourrir. Pourquoi paieriez-vous 350 

Francs si vous n'obtenez rien de concret en échange ? 
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C'est la raison pour laquelle ma première décision a été d'adresser à tous les 
membres actuels ou passés une enquête sur ce que vous attendez de l'association. 
A l'heure où j'écris cet éditorial, nous avons reçu … deux réponses ! Comment 
faire évoluer l'association sans le concours actif de ses membres ? 
Si vous ne l'avez déjà fait, renvoyez cette enquête, ou faites nous part de 
suggestions plus personnelles. Faites-nous connaître l'avis de personnes qui 
lisent la revue sans être membres eux mêmes. Nous en avons besoin. Je 
m'engage à vous en rendre compte dans un prochain numéro 
Avec vous, j'aimerais revitaliser APL. 
Et vous, qu'aimeriez-vous faire ? 
Passez un agréable été. 

Bernard Legrand 

21 Juin 1999 
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Compte d’activité de l’année 1998 


Par Bernard Secret 


1998 1996 195 
RECETTES 
Cotisations entreprises 29 300,00 33 600,00 28 000.00 
Cotisation individuelles 32 400,00 34 575,00 22 925,00 
Contributions volontaires 400,00 650,00 175,00 
Public 9 769,53 2599.13 241200 
Total des recettes 71 869,53 7132413 53 512,00 
DEPENSES 
Frais acminisratis tases 113610 
Télécommunications 381683 3604.53 
Publications 4279348 54 844,92 
Divers 1083.00 0,00 
Frais financiers 16395 163,95 
Matériels 0.00 3 890,00 
Total des dépenses 55 782,89 63 638,50 
SOLDE DE GESTION 16: 086,64 7685.63 
s% 197 1998 
RECETTES 
Cotisations entreprises 24000 1680000 2744000 
Cotisation individuelles 18 848,00 15 750,00 16 050,00 
Coninbutions volontaires 0,00 0.00 0,00 
Publicité 0.00 0,00 0,00 
Total des recettes 4124800 3255000 43.490,00 
DEPENSES 
Frais administatts 263.90 916.71 225.50 
‘Takbcommunications 3935,58 3899.87 4761,26 
30 343,97 28 129,45 11 553,29 
1 000,00 792.54 225268 
0.00 0,00 
000 27000 
Total des 139 35 543,37 37 528,57 10792,73 
SOLDE DE GESTION 570483 497857 24 697,27 


Les Nouvelles d'AP£ N° 30 


Génération de fonctions polynomiales ayant la propriété 
i F(G)=F(1/x) 
1** partie : démonstration et fonctions APL. 


e OA 
Par Michel J. DUMONTIER 


Introduction : Le journal est intitulé les nouvelles d'APL, et pourtant je vais 
faire resurgir le passé (1960 : presque 40 ans !, APL n’était pas encore né !) en 
actualisant par APL, donc en APLisant, des propriétés que j'avais découvertes en 
rédigeant un D.S. de Taupe (sujet de concours d'entrée aux ‘grandes écoles”) que 
le digne professeur sorti major d’Ulm n’avait pas compris mais qui a fini par 
comprendre lorsque, sur sa demande, je lui ai expliqué après le cours de maths ! 
Cette propriété, qui n’avait pas été demandée d’être démontrée, m'avait permis 
de faire des gros raccourcis dans les démonstrations demandées... ce qui m'avait 
permis, comme d’habitude, de finir et sortir avant les 4 heures fatidiques ! 
Anecdote 1: J’ai conservé la démonstration, mais je n’ai pas retrouvé le D.S. que 
j'avais mis dans un cartable vert format Al avec tous mes exploits et que j'ai 
laissé dans un hôtel à Malakoff dans les années 70. Si quelqu'un le retrouve... ou 
l’a emprunté comme on dit maintenant avec l’évolution des mœurs, on ne sait 
jamais ! 

Anecdote 2 : j'avais promis à Gérard Langlet d'écrire ce présent article et de lui 
envoyer , mais j’ai toujours différé la rédaction, avec I’arriére pensée que, si je le 
publiais, Gérard écrirait une dizaine d’articles à la suite pour parler de ce sujet 
comme il l’a fait pour le Quinto... 

La suite, ce sera pour le prochain numéro. 


1) Démonstration : 


Condition nécessaire et suffisante pour qu’un polynéme P(x) soit tel que 
P(x) x’ P(1/x) 


(Je reproduis le texte strictement comme je l'ai écrit il y a 40 ans !) 


Soit un polynôme P(x)=a,X°+an pX" "+... ax" +agxt ordonné suivant 
les puissances décroissantes de x et où on symbolise les termes de rang h à partir 
du début et de rang h’ à partir de la fin par ay4,x"" et ag X 9% et où le terme de 
plus bas degré a pour degré q. . 

Formons P’(x)= x" P(1/x)= apx +an px P+, „tagn aia ta,x"4 


Rangeons ce polynôme suivant les puissances décroissantes : 
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x P(L/x)= ax aux + ape a x” 
Condition Nécessaire : 


identifions les termes de plus haut degré : 


ara, o rgen > Eng \ 
I 


identifions ceux de plus bas degré : > c’est la même condition. 
} 
Ang r-n=q = 1=n#q / 


Rang des termes pour que les degrés soient les mêmes : 


n-her-q-h’ > nch=ntg-q-h > -h=-h’ + hh’ 


d’où : anna 


Le polynôme devra donc être de la forme : 


PO an a a XT ta x 


Où les coefficients équidistants des extrêmes sont égaux et où, à chaque terme de 
coefficient an; et de degré n-hi correspond un terme et un seul de même 
coefficient anhi et de degré qthi avec O<hi<p et où p est tel que si le nombre de 
termes est pair et égal à 2N + p<N-I et si le nombre de termes est impair et égal 
à 2N+1 > p<N dans ce dernier cas, il n’y a qu'un terme pour lequel h=N si 


celui-ci existe. 
Condition suffisante : 


Soit un polynôme de la forme : 
OR SE NT AE NE H, t appart tag x aa 


X P(1/X)= ax ang X TP a XD ao a aa 


donc : 


x 3 P(1/x) =P(x) 
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Et c’est ici que cela devient interessant : 
PROPRIÉTÉS IMMÉDIATES : 


Soit une fraction g(x) qui est le quotient de 2 tels polynômes tels que 


@(x)=x "9 pi/x) et 
f(x)=x ™* £(1/x) ona 


(x)= (x) f(x) = x ™ x g(1/x) 


En particulier si n+q=m+A alors 


gœ) =g(1/x) 


C.Q.F.D. 
2) Implantation en APL. 


Comme je le disais plus haut, n’ayant plus la famille de polynômes étudiés en 
prépa, ił va falloir inventer des polynômes adéquats pour commencer. 


Voici déjà quelques fonctions utiles de calcul de polynômes. 
Valeur d’un polynôme de coefficients C pour la valeur X 


Z2eC P X 
Z,XfC 


Exemple : Valeur du polynôme x°+3x*+5x2+11 pour x=2 


1305011P2 
111 


(J'espère que les non aplistes qui voient cela pour la 1°” fois vont apprécier, ou 
seront abattus, ou seront époustouflés ou … surtout si je leur dis que ce simple 
symbole antitruc utilisé pour la fonction "base", sert en premier lieu à calculer un 
nombre en bases multiples ; je sais, beaucoup répondront : on n’a pas appris cela 
à l’école ! tant pis pour eux, c’est aussi l’évolution des mœurs qui veut cela !) 
Fonctions de base de calculs de polynômes : 


Les Nouvelles dave N° 30 


Pour les fainéants et ceux qui ont l'esprit vectoriel (et non scalaire comme les 
non aplistes), voici la fonction PS qui calcule les valeurs d’un polynômes pour 
plusieurs valeurs de x. 


Z+C PS X ;O10 
DIO+0 © Z+{Xo.x®1pC)+,xC 


Exemple : 


1305011PS2 4 7 
111 1883 24266 


PLUS, MOINS, FOIS (produit de polynômes) 


Z,X PLUS Y 
Be((-Z)tK) +(-Ze(P,XIPP,Yty 


2*X MOINS Y 
Z+X PLUS -Y 


Z+X FOIS Y 

>{0=NR Y)/3 

Z«(Xx-1tY) PLUS (X FOIS -1+Y),0 o +0 
2+0 


102004 PLUS 3 0 22 
105026 
Un gros polynôme MOINS un petit : 


4 7 MOINS 2 5 4 


2-3 
21713 


Le contraire 


2 4 6 MOINS 14263 
71 74 072 3 
Rappel du binôme de Newton : 


1 FOIS 1331 


12 
15 10 10 5 1 


Passons aux divisions : (cela nous intéresse pour le présent sujet). 
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ZX DIVC Y;R9 

+C(NR X)>NR Y}/3 

Z+R3, X DIVC ~14Y¥ MOINS XXR9+(-11Y)+"11X © +0 
Z+10 


Z+X DIVD Y 
Z+(®X) DIVC oY 


(Quand on est fainéant : il faut avoir des idées !) 


1 3 3 1 Dive 1 5 10 10 5 1 
121 
13 3 1 DIVD 1 5 10 10 5 1 


Fonctions annexes : 
On utilise la fonction (prudente) NR dans DIVC ; la voici : 


Z+NR X 
Z++/X=X 


Si un polynôme calculé a une succession de coefficients nuls dans les plus hauts 
degrés, il faut les supprimer, c’est ce que fait la fonction SUP suivante qu’on 
utilisera dans les restes de divisions. 


Z+SUP C 
Z+{+/AN0=C) IC 


Examples de divisions avec restes : 


C+1 2 1 o E+9 7 10 10 5 1 

C DIVC E 
2.331 

D+RESTE+E MOINS C FOIS C DIVC E 
8 2 0 0 0 0 

(1 2 1 FOIS 1 3 3 1) PLUS 8 20000 
3 7 10 10 5 1 

C DIVD E 
9 711 23 725 

D+RESTE+E MOINS C FOIS C DIVD E 
000 0 32 26 


SUP RESTE 
32 26 
{1 2 1 FOIS 9 -11 23 725} PLUS 32 26 


i2 
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9 7 10 10 5 1 


Une dernière fonction pour compléter : calcul des coefficients d’un polynôme 
dont on donne les racines. 


Z+CPOLR R;O10;A 
UI0+0 © Z+1,6({1PR}o.=+/-A)+.x(R)x.#*A+{(PR)P2)TL24PR 


CPOLR 2 35 
1 710 31 730 


Vérifions : 


(1.72) FOIS (1 -3) FOIS 1 -5 
21 710 31 730 


Maintenant, nous sommes prêts à faire un exemple pour faire des essais : 
Prenons au hasard, des polynômes symétriques de même degré. 


O+E+C,@C+5210 
2671441762 

O+C+D,OD«5?10 
3204664023 

(C PS 2, +2)+ {E PS 2, +2) 
0.6993620415 0.6993620415 


C.Q.F.Expérimenter ! 
Construisons un générateur de polynômes P(x) tels que P(x)= x" P(1/x) 


Z+QH POLISURX AN;P;N;Q;H;A;D;P1 

N+=1tAN © Qr1tQH © P+-1tQH OA-"14AN © D<DIFF 0,H+14QH 0Z+1+A 
+((1+PQH)#PAN)/FINI 

+((N-P}<(Q+P))/FIN2 

BO:Z+Z, ((~14(1tD))P0)0 A+14A0 +(0=pA)/SUITI0 2*Z,11A © DelsD 
+(0=pD)/SUIT1 0+B0 

SUITL:P1+Z © +((N-P)=Q+P)/SYM 

ZZ, ((~1L4#N-(Q+2xP) )P0) 

SYM:Z+*Z,®P1 © Z+Z,(QP0) © +0 

FIN1:'REVOYEZ HQ ET AN' © +0 

FIN2:'LE PLUS GROS COEFF DE LA 1ERE MOITIE EST TROP GROS" 


Ceci va permettre aux curieux et expérimentateurs de tout poil, de s’amuser avec 
toutes sortes de polynémes en attendant le numéro suivant de la revue AFAPL. 


Si quelqu'un fait des trouvailles il peut le faire savoir à la rédaction. 
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Je ne m’attends pas à quinze articles là-dessus |... 


Exemple nous voulons générer le polynôme symétrique qui commence par 
3x!5+4xl247x10 et que ça se débrouille pour trouver le reste ! 


alors n=15, a,=3, h1=3, h2=5, q=3, ap.ni=4, Apno=7 


D+C+ 3 3 5 POLISURX 3 4 7 15 
3004070704003 000 
CP2 
123928 
(C P +2)x2#x(15+3) 
123928 
Ca marche ! 


Bon amusement ! 
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THE 3D DCT (Discrete Cosine Transform): 


A GENERALIZATION OF THE 2D DCT 


Authors: 

Michel J, DUMONTIER 

Patrick GERLIER : Ingénieur EP. 

Dr Pascal LERAY 

Image Processing & Computer Graphics Expert 
FRANCE TELECOM/CNET/DIH 


In LH 

The standard, classic, and well known 2D DCT is largely used in the MPEG or 
JPEG world, for very efficient image compression. 

But the spatio-temporal 3D DCT (2 Dimensions plus time) has not yet been 
tested, 

The present paper is dedicated to an APL implementation of the 3D DCT, 
defined as a generalization of the 2D DCT. 


DESCRIPTION: 

In this case, instead of 8*8 image blocs, we choose 8*8*8 spatio-temporal blocs. 
A direct 3D DCT transforms the input bloc in the Fourier space. 

A rounded vector B is obtained from this result. 


An inverse 3D DCT decompression is obtained by the reverse process. 
The result bloc is compared with the original bloc V13D. 
The detaiied implementation is shown here: 


APL implementation: 


The 3D DCT transform function: 

VT+DCT3D V 

aI0+-1 

N+3 1 2 
VT+0.015625xMCOS+ . xNR&(MCOS+ , xNB(MCOS+. xNBV) } 


The reverse 3D DCT transform function: 

VT+IDCT3D V 

Q10+1 

N+3 1 2 

VTe (QMCOS } +. xN&( (BMCOS) +. xN&{ (HMCOS } +. xNAV ) ) 


Initialization function: COEFFCOS: 


COEFFCOS 
OI0+0 

FAC+1 
PI+3.141593 
A-FACxcos (P 
B+FACxcos(P 
C+FACxcos(3 
D+FACxcos (5 
E+FACxcos (7 
F+FACxcos (P 
G+FACxcos (3 
(PI+16)e.x1, 
MCOS+8 8p0 
MCOS[0;3+8 
MCOS[1;1+8 
MCOS[2;)-8 
MCOS (3; J+8 
MCOS(4;1+8 
MCOS[5;]+8 
MCOS{[6; 1+8 
MCOS[7; I+8 


GLOBAL TE 


653589 
144) 
16) 
xPI 
xPI 
xPI 


1+8) 

xPI+8) 

8 

1PA,A,A,A,A,A,A,A 
19B,C,D,E,(-E),(-D),(-C), (-B) 


1PF,G,(-G),(-F),(-F),(-G),G,F 
1PC,(—E),(-B),(-D),D,B,E,(-C) 
1PA,(-A),(-A),A,A,(-A),(-A),A 
19D,(-B),E,C, (-C), (-E),B, (-D) 
1pG,(-F),F,(-G),(-G),F,(-F).G 
1PE,(-D},C,(-B),B,(-C),D,(-E) 


ST FUNCTION: TST3D 


On 8*8*8 Spatio-temporal blocs: 


Z+TST3D 
QIO+1 
COEFFCOS 
A+DCT3D V13 
B+0,.01xLAx1 
Z+IDCT3D B 
Z+'F6.1'OFM' 


The cosine fun 
z+cos v 
z+-20v 


D 


00 
IT Zili] 
ction COS: 


VI3D is a 8*8*8 spatio-temporal bloc 
VI3D is loaded with a IOTA N coefficient 


The result shows that the reconstructed V13D value is equivalent to the initial 


value. 
V13D: 8 times 


this bloc: 


L 42: oR A 5,6 TB 
9 10 11 12 13 14 15 16 
17 18 19 20 21 22 23 24 
25 26 25 28 29 30 31 32 
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33 34 35 36 37 38 39 40 
41 42 43 44 45 46 47 48 
49 50 51 52 53 54 55 56 
57 58 59 60 61 62 63 64 


The transformed matrix: B: (B is rounded from A) 


© 
8 


poooocee 


oooooooo 


R 


pooooooco 


an m eş 
gieñcios 
Bae oy 


00000666 


66666000 


Sc0000066 


20000000 


00000666 


00666006 


Ss0606068 


Sseoscceso 


Sse660000 


0000606 


66966000 


Sco00006e 


cooccece 


oc0c00e6e 


oocoocooco 


oooosooo 


cooocooooo 


occecsee 


66600000 


Ss060000 


62906000 


Ssoccsese 


69600000 


S006606 


6500000 


56600000 


covccsece 


17 


souuesee 
o0vv66ve 
sowsecse 
56606666 
oovbsosue 
c0006000 


vooooooo 
oooooooo 
ououecse 
20000006 
oooccvevce 
60000060 


Only 9 coefficients are different from 0. 

All the energy is concentrated on the first coefficients. 

(As for the classic 2D DCT transform) 

But in the 3D case, the compression ratio is much more efficient: 


Compression ratio possible evaluation: 
2 coefficients using: 16bits 

1 coefficients using: 10bits 

5 coefficients using 8 bits 


Total: 34 bits {<9 octets, for 8*8*8 = 512 coefficients of 16 bits) 
For this example, the compression ratio is: 
1024/9 = 113 


FURTHER RESEARCH 


Several other examples could be tested, mainly for real images: 

One could transform an animated spatio-temporal sequence, and test with the 3D 
DCT transform. 

Test sequences could be choosen among images with low or high frequencies. 
(classic DCT beeing more efficient for low frequencies) 

But adaptive quantizing could be used, with, for ewample, neural nets in order to 
optimized the quantizing process. 


GENERAL CONCLUSION: 


This first result seem very promising. 
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Further implementations and links with real image sequences must be done and 
tested now. 


But at present, APL implementation demonstrates a very efficient coding 
compacity, able to solve very complex algorithms in a very short time, without 
the complex requirements of C or C++. 
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OPTIMISATION ET ORDINATEUR 


Une tentative d'optimisation de l'optimisation 
vers l'optimiseur relatif absolu, 
la Méthode des Moindres Quelconques (MMQ) 


Gérard A. Langlet 
CEA/DSM/DRECAM/SCM/LIT (LABORATOIRE D'INFORMATIQUE 
THEORIQUE) 


Proposition d'article, compréhensible par tout lecteur sensé et de bonne foi, pour 
les brèves du DRECAM, par exemple. 


Introduction 


La méthode des moindres carrés reste, et de loin, la plus connue et, probablement 
la plus utilisée, de toutes les méthodes d'optimisation. Simple à exposer, elle a 
conquis tous les domaines: on la retrouve utilisée par les politologues aussi bien 
que par les physiciens, par les analystes financiers aussi bien que les biologistes 
et des médecins. 


Son principe initial ne fait pas appel à des mathématiques de haut niveau : il peut 
s'enseigner dans des classes élémentaires, dès que le représentation cartésienne 
des fonctions a été assimilée. 


Notre but n'est pas d'exposer cette méthode de la manière classique, mais plutôt 
d'une façon telle qu'elle va se retrouver elle-même optimisée, si l'utilisateur 
désire Ja pratiquer sur une grande quantité de données, à l'aide d'un ordinateur et 
non plus à la main. Elle deviendra alors, sans effort, la plus efficace de toutes les 
méthodes connues, car de nouvelles propriétés vont apparaître, en raison du 
mode de fonctionnement de l'ordinateur, au niveau où il gère de façon optimale, 
donc sans aucune erreur, l'information qu'on lui soumet, celui de l'algèbre 
binaire. 


La Base 


Soit une fonction Y()=F(XI, X2, ... ,Xn, t) exprimant, en fonction de différents 
paramètres ajustables Xi … Xn, l'évolution d'un phénomène quelconque en 
fonction de t, le temps 


En réalité, les différentes valeurs de Y peuvent se représenter sur un graphe 
cartésien en fonction de la variation de n'importe quel paramètre au choix, t ne 
représentant alors qu'un choix particulier (très courant toutefois, aussi bien en 
physique qu'en biologie). L'examen de Y=F(t) suffit alors pour exposer la base 
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de la méthode, sur ce que l'on appelle une série chronologique. 


Supposons que F exprime l'état actuel d'une théorie, c'est-à-dire la meilleure 
fonction connue capable d'exprimer, le plus correctement possible, et pour des 
intervalles raisonamment larges de variation de tous les autres paramètres X1 ... 
Xn, la variation de F en fonction de t. 


Pour des valeurs connues de tous les paramètres, l'utilisateur va alors tracer, sur 
une feuille de papier ou un écran graphique, le graphe de Y=F(t), après avoir 
calculé un certain nombre, toujours fini, de valeurs de Y, pour le même nombre 
de valeurs de t. Appelons Yt cette série de nombres. 


Parallèlement, l'utilisateur a effectué des mesures avec le plus grand soin, pour 
ces mêmes valeurs de t, en fixant les valeurs des autres paramètres aux mêmes 
valeurs que celles utilisées pour les calculs. Appelons Ym cette série de 
nombres. 


Remarque. II n'est pas nécessaire, pour la suite de l'exposé, que l'on ait fixé des 
valeurs constantes pour l'ensemble des autres paramètres lorsque Y varie en 
fonction de t; il est seulement indispensable que, pour chaque calcul, les 
paramètres intervenant dans F aient tous la même valeur que ceux utilisés au 
même point pour effectuer la mesure. Yt et Ym représentent alors deux 
trajectoires, l'une théorique, l'autre expérimentale, car mesurée, dans 
l'hyperespace Y=F(X], Xn) en fonction de t. Le raisonnement ci-après va 
alors acquérir un caractère très général. 


Moindres carrés et autres moindres. 


On peut représenter sur le même papier ou écran les deux graphes de Yt et Ym 
en fonction de t en utilisant des coordonnées cartésiennes, d'une manière très 
classique; c'est d'ailleurs ce que font la plupart des utilisateurs et les auteurs de 
publications ou d'ouvrages didactiques, quel que soit le domaine d'application 
considéré : un graphique bien présenté parle toujours plus que de longs et 
austères tableaux de nombres. L'information se transmet alors de manière 
visuelle. 


En général, aucune théorie n'est complète... 1! sera extrêmement rare que tous les 
points d'ordonnées Ym coïncident parfaitement avec les points d'ordonnées Yt 
pour chaque valeur de t. Même si la coincidence dans le cas étudié est 
suffisamment bonne partout pour valider la théorie, il va apparaître des écarts si 
on essaie a) de prévoir le devenir du système étudié (tel est le but de toutes les 
séries chronologiques), au delà des valeurs de t mesurables et effectivement 
mesurées, b) de changer de trajectoire en modifiant les valeurs des autres 
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paramètres du système, c) d'affiner les mesures en contrôlant mieux la précision 
de tous les paramètres. 


Chaque point des graphes de Ym et de Yt doit, honnêtement, devenir le 
barycentre (centre de gravité} d'une fenêtre rectangulaire, dont la longueur et la 
largeur de part et d'autre du point central, exprimeront les erreurs absolues sur la 
détermination théorique et expérimentale de t et des valeurs de Y. 


Dans le cas général, les erreurs sur t sont négligeables devant celles sur Y. Avec 
la précision dont on dispose pour le calcul théorique de Yt sur ordinateur, (mais 
pas toujours si F est une fonction très complexe exigeant des millions d'itérations 
par exemple), les erreurs sur Yt sont négligeables devant celles sur Ym, sauf si la 
formule est vraiment fausse... 


Considérons seulement le cas où le rectangle sur chaque point de Yt se réduit 
effectivement à un point, donc, sur l'écran de visualisation, à un pixel 
élémentaire (de l'anglais “picture element", petit carré noir rempli par le point 
visible sur l'écran, et qui n'est jamais un point euclidien (théoriquement sans 
dimension). Le rectangle construit sur chaque point de Ym, puisque l'épaisseur 
(largeur) sur t vaut aussi 1 pixel, devient visuellement représentable par des 
flèches verticales opposées 
l'espace bianc entre les flèches ayant alors aussi 
+ I pixel de largeur et 1 pixel d'épaisseur. 


Si théorie et mesures coincident exactement, c'est-à-dire au mieux pour la 
précision affichable sur l'écran, le pixel théorique (noir) vient boucher le trou 
entre les deux flèches, exactement. Si l'accord est acceptable, le pixel noir 
théorique devient invisible, car il se situe dans l'une des fléches, soit en haut, soit 
en bas. Il suffit alors, sur un écran polychrome, de lui affecter par exemple une 
couleur verte pour le voir néanmoins; sur un écran monochrome, on peut, soit 
remplacer le pixel noir théorique par un marqueur (croix, carré, losange, petit 
rond, etc... ), soit, encore plus simplement, inverser sa couleur de sorte que l'une 
des deux flèches noires apparaisse affectée d'un trou blanc. 


Remarque. Les flèches n'ont pas nécessairement toutes la même hauteur pour 
tous les points, car la précision expérimentale peut varier d'un point à l'autre. 


Lorsque le point mesuré se situe hors des flèches, c'est-à-dire ne correspond pas 
à la théorie, il sera toujours visible, au dessus ou en dessous de sa paire de 
flèches. Sur un écran polychrome, on pourra alors le faire apparaître comme un 
pixel rouge; l'expérience prouve que cette représentation colorée transmet 
l'information de coïncidence, parfaite, acceptable ou inacceptable, visuellement, 
pour l'ensemble du graphe, au cerveau humain d’une manière très efficace donc 
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rapide. 


Mais l'expérience reste ce qu'elle est : un absolu... relatif. 
Absolu, parce que si les conditions expérimentales sont reproductibles et suffisamment 
fines, les flèches conserveront, sur tout graphe dessiné dans les mêmes conditions, la 
même position de leur trou central pour tous les points. Honnêtement, et dans tous les 
cas, seuls les points rouges sont à prendre en considération pour affiner la seule entité 
maintenant modifiable... la théorie. 


Relatif, parce que, si, par un moyen quelconque on parvient à réduire la hauteur 
des flèches, les points verts vont, petit à petit mais toujours discrètement, devenir 
rouges et ce, pour l’ensemble des points possibles de toutes les trajectoires 
possibles. L'optimiseur idéal, car le travail de l'utilisateur, économiste, physicien 
ou biologiste, est toujours une optimisation permanente, doit être capable de 
corriger F pour toutes les trajectoires possibles dans l'hyperespace des 
paramètres, donc de supprimer un maximum de points rouges. 


On assiste donc 4 un match contradictoire: Plus on corrige F, moins il reste de 
points rouges; plus on affine l'expérience, plus il apparaît de point rouges. A ce 
stade, il importe d’effectuer plusieurs remarques : 


Si, sur ce graphe visuel, on décide d'appliquer à chaque fois une transformation 
sur les ordonnées ramenant les trous des couples de flèches sur une même ligne 
horizontale, on perd l'information concernant les ordonnées absolues, mais on 
conserve la seule information nécessaire pour pratiquer l'optimisation, 
indépendamment du choix de la méthode d'optimisation, les écarts. Ceux-ci sont 
alors donnés, pour chaque point rouge par un nombre entier nécessairement non 
nul, exprimant une altitude, positive ou négative, en pixels. 


Les suites de valeurs Yt et Ym peuvent être avantageusement remplacées par une 
nouvelle suite que l'on va définir maintenant, avant de choisir la méthode 
d'optimisation. 


Ladite suite est nécessairement un masque binaire, de même longueur que les 
suites Yt ou Ym : appelons-la R comme rouge. Elle contient 0 si le point n'est 
pas rouge, donc n'intervient pas dans la future optimisation, et 1 dans le cas 
contraire. Numériquement, ces mêmes valeurs 0 et I sont aussi des coefficients 
de pondération réduits à leur plus simple expression : une opposition logique : 
soit ‘inutile de considérer", soit "à considérer", l'une des propositions excluant 
l'autre ipso facto. 


Par une autre transformation conceptuelle, ramenons toutes les flèches à la même 
longueur (elles sont déjà à la même altitude) en affichant un point au dessus s'il 
est rouge sur l'écran polychrome et rien du tout s’il n'est pas rouge (peu importe 
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que dans le graphe original le point rouge se situe au-dessus ou en dessous des 
flèches). Supprimant alors la flèche du bas, nous obtenons un dessin ou plutôt 
un diagramme tel que 


to tt tt se aa i me a Sa 
Maintenant, le choix d'une méthode d'optimisation plutôt qu'une autre, sur un 


critère plutôt qu'un autre, donc d'une fonction de coût quelconque, constitue 
toujours un arbitraire. 


Seul le but final a de l'importance faire disparaître les points rouges, ramener leur 
ensemble à un ensemble vide. 


indépendamment du domaine d'application, de la complexité de F (sa non- 
linéarité), du nombre de mesures mises en jeu, des valeurs numériques mesurées 
ou calculées, de la trajectoire choisie pour ce faire, on a parfaitement le droit 
d'essayer d'optimiser la théorie sur le seul critère d'existence ou non d'un écart 
entre l'expérience et cette dernière, et ce, pour simplifier, en faisant appel à la 
méthode effectivement la plus simple et la plus connue, celle des moindres 
cartes. 


Toutefois, avant de tenter de l'appliquer, i! convient de rapporter, le plus 
objectivement possible, certaines critiques couramment émises à son sujet. 


On a souvent reproché à ia méthode des moindres carrés de ne pas considérer les 
écarts entre les points situés n'importe où sur les graphes de la même façon c'est- 
à-dire avec la même importance : la méthode optimise alors mieux les points 
pour lesquels les écarts sont plus grands en valeur absolue. 


Déjà, on peut s'apercevoir qu'une optimisation sur la seule existence (1) ou la 
non-existence (0) doit être indépendante de l'ordre des points sur le graphe. On 
sait en effet qu'il est possible d'effectuer sur t un changement de variable tel qu'il 
en résultera, sur le diagramme ci-dessus, une certaine permutation de l'ordre des 
points qui n'aura aucune incidence sur le raisonnement suivi jusqu'à maintenant 
l'objection s’écroule d'elle-même, sans qu'il soit nécessaire d'écrire un seule 
expression mathématique à ce sujet. La simple logique binaire suffit, encore une 
fois. 


Généralisons d'ores et déjà aussi la méthode des moindres carrés en critiquant 
cette fois Ja signification du mot "carrés". 


Si Z est un vecteur, suite de valeurs toutes nuiles exprimant, par définition un 
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idéal, l'absence totale d'écart (ou d'erreur décelable) pour un ensemble 
d'échantillons quelconques relevés à la meilleure précision possible sur un 
phénomène quelconque, Z représente l'absolu. 


Soit V un autre vecteur de même longueur (ou cardinal) que Z, exprimant soit 
par 0, pour le même ensemble, l'absence d'écart perceptible par rapport à Z, soit 
par 1 qui correspond à une non-absence (donc une existence) d'écart. 


La stricte application des moindres carrés va consister à minimiser, par un 
procédé adéquat, la somme des différences V-Z élevée au carré. 


Mais Z étant partout nul, ce procédé revient à minimiser V seul élevé au carré. 


Mais V, étant sur toute son étendue, égal, soit à 0 soit à 1 par définition, V au 
carré est toujours égal à V lui-même. 


On raisonnera maintenant sur V, élevé, terme à terme, à une puissance 
quelconque mais non nulle, sachant que 0 élevé à ladite puissance vaut toujours 
© , et que 1 élevé à ła même puissance vaut toujours 1. 


On se rend compte que ce raisonnement exprime dans toute sa généralité un 
théorème essentiel de l'optimisation idéale : 


Toute optimisation réalisée sur un système ou ensemble quelconque exprimé par 
des parités d'existence ou de non-existence d'écarts observables, est, a priori, 
optimale, car elle ne dépend ni de l'ordre choisi pour exprimer ces écarts, ni de la 
puissance à laquelle on va opérer. 


Ce théorème a plusieurs conséquences ou corollaires 


a) Ni la théorie des Nombres ni celle des Fonctions n'interviennent plus dans 
le raisonnement, ni par un choix d'ordre {au sens de l'ordre dans un 
ensemble dit ordonné), ni par un choix d'ordre (au sens d'élévation à une 
puissance imposée ou arbitrairement décidée). 


b) Le même raisonnement s'applique aussi si l'on désire optimiser non plus 
une fonction F quelconque, mais l'une quelconque de ses intégrale ou de ses 
dérivées, par rapport à n'importe quelle variable ou paramètre quelconque, 
par rapport à une combinaison quelconque des ces variables ou paramètres. 
Il s’appliquerait aussi dans le cas d'une intégration ou d'une dérivation 
d'ordre non entier, donc quelconque, couvrant ainsi, toujours a priori, 
l'ensemble des considérations relatives à la combinatoire ou la complexité. 
Le mot "ordre" devient le plus important du raisonnement, car il couvre 
maintenant, en outre, aussi l'ordre de dérivation et d'intégration. 
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Une optimisation basée sur des parités d'existence ou de nonexistence et 
strictement sur ces seules parités, peut donc s'effectuer dans le plus grand 
désordre apparent et rester pourtant optimale à tous les ordres à la fois, quelle 
que soit la signification donnée au mot "ordre" parmi les trois différentes 
considérées jusqu'ici. I! est d'ailleurs possible (mais non nécessaire) de 
démontrer, par un développement limité en série de Taylor ou de Mac Laurin, 
que les deux derniers sens du mot "ordre" (élévation à une puissance quelconque, 
et ordre d'intégration ou de dérivation) ne sont pas indépendants, 
indépendamment de la fonction F et de son domaine d'application. 


L'axiomatique développée ici ne sera jamais soumise, même pour un nombre a 
priori infini de parités, aux conséquences du Théorème de Gédel (1931), lequel 
énonce que toute axiomatique aboutit un jour à tomber sur une proposition 
indécidable. Le théorème s'applique en effet à toute axiomatique basée sur la 
théorie des nombres. Or, il est lui-même démontré en admettant comme un 
axiome ladite théorie et devient indémontrable si l'on renonce à cet axiome. 

L'axiomatique développée ici ne sera jamais soumise, même pour un nombre 
infini de parités, à l'axiome de continuité, toute prise de mesure par 
échantillonnage et tout procédé de calcul réalisable (algorithme) étant 
nécessairement une suite d'opérations discrètes. En outre, et par définition, il ne 
peut exister de continuité entre une existence et une non-existence et 
réciproquement : L'optimiseur idéal ne pourra donc jamais être décrit 
correctement par aucune fonction continue, Par contre, il pourrait être 
descriptible par un algorithme exprimé nécessairement dans la même algèbre que 
celle qui décrit déjà, encore une fois, nécessairement, les données à traiter. 


Questions : A partir de ce raisonnement, et de ce raisonnement seul, peut-on 
prévoir : 


a) si l'algorithme discret exprimant le fonctionnement de l'algorithme idéal 
d'optimisation sera unique, à égalité de propriétés; 


b) s’il est possible d'en imaginer ou d'en trouver un encore supérieur donc plus 
général. 


Il semble bien que la seule réponse possible à ces deux questions, à choix 
binaire, soit NON. 


Déjà, et sans que l’on ait cherché à définir avec précision l’optimiseur idéal, le 
raisonnement ci-dessus, sauf s'il est démenti, soit par preuve du contraire (encore 
un choix binaire), soit par une preuve expérimentale, montre que toute tentative 
d'optimisation de quoi que ce soit, utilisant soit la théorie des fonctions continues 
soit la théorie des nombres, revêtira un caractère d'optimalité non satistaisant. 
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Tl en serait de même de toute tentative d'infirmer le présent raisonnement, soit en 
utilisant une axiomatique basée sur la théorie du continu, soit une autre, même 
discrète, mais basée sur la théorie des nombres et sur la nécessité d'introduire la 
notion d'ensemble ordonné (attention à Gödel), soit, ce qui serait encore pire, sur 
une combinaison des deux axiomes inutiles contestés ici (cas de la théorie des 
fonctions continues). La seule infirmation possible ne peut provenir que d'un 
autre raisonnement exclusivement logique (ne comportant aucun nouveau 
postulat), ou, pire, que d'une illogique basée sur l'arbitraire, donc sur le hasard, 
ou sur la poursuite obstinée d'une croyance forte en certaines erreurs initiales. 


(Toute théorie se comporte comme un système dynamique : quelle que soit la 
fonction ou l'algorithme qui la font évoluer, de préférence dans le bon sens, elle 
restera essentiellement soumise à ses conditions initiales, renfermées dans son 
axiomatique initiale, donc dans ses postulats.} 


En outre, l'optimiseur idéal, basé sur la seule logique des parités (ou des 
contraires) deviendrait à la fois l'énoncé correct (et le seul possible) à la fois du 
Principe de Moindre Action sous sa forme primitive la plus générale, 
indépendante de tout postulat et de toute grandeur de nature macroscopique ("La 
Nature est économe dans toutes ses actions", Maupertuis), et aussi celui de 
l'interaction élémentaire, si elle existe, comme les physiciens le postulent et la 
recherchent à grand renfort de crédits. 


Question : Compte tenu du raisonnement ci-dessus, supposé irréfutable, (mais 
qui sait?), quelle est la seule formulation possible pour le principe de moindre 
action généralisée, l’optimiseur idéal, donc l'interaction élémentaire, à la fois ? 


(Réponse dans le prochain numéro). 


Note du rédacteur : il semble qu’il n’y ait pas de prochain numeéro...ou que la 
réponse n'ait pas été donnée. 
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CALCUL DE RACINES EN &  » 


R. Coquidé 

Racines d’un polynôme 
(expression usuellement utilisée pour « solutions d’une équation polynomiale ») 

Le langage J est pourvu d’un outil puissant pour calculer les racines d'un 
polynôme : le verbe « p. ». 
Ti est possible de définir un polynôme par ses racines. 
Par exemple le polynôme suivant défini par ses facteurs 

36x-1} (x-2) (x+1.5) (x-0.5) (x-1.2) 

sera créé par 
(pr =. 3;1 2 _1.5 0.5 1.2 NB. On peut remarquer le 
= ——— NB. facteur 3 et la «mise en boîte » 
13/1 2 _1.5 0.5 1.2| NB. de la variable pr (pro-nom) 
(EN ee 


Avec le verbe « p. », calcul des coefficients du polynôme : 
[pc =. p. pr NB. A partir des racines 
5.4 _19.8 19.05 1.95 _9.6 3 NB. Ici, pas de « boîte » 
Avec le même verbe « p. » calcul des racines à partir des coefficients : 
p. pe NB. rangées dans l’ordre des modules décroissants 


3/2 1.51.210.5| 
mi 


Les racines complexes sont acceptées ... et traitées... 
{pr =. 2 ; 050.2 .1 0j_0.2 1j2 132 2 


0j0.2 _1 0j 0.2 152 14_2 2 


{pc =. p. pr 
_0.8 _0.08 _19.6 _2.24 10.08 _6 2 
p- pe 


o 


1 
132 1i_2 2 _1 0j0.2 93.0.2] 


© 


... les coefficients complexes aussi 
(pr =. 25.1 7 150.1 _1 0j_0.2 152 1j_2 _2j_0.5 


f T = 
2j_1|230.1 _1 0j 9.2 1j2 1j_2 .25_0.5 


[pc =. p- pr 
_0.55j 46 _23.13j2.39 _0.57j$.01 22.25j 6.35 _1.16j 2.17 
0.6j1.2 2j 1 

P. pe 


23-1132 132 _25-0.5 130.1. _1j0 05.0.2] 
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Solution de f(x) =0 où f(x) n’est pas polynomiale 
(on suppose connu un intervalle [a , b] contenant une solution et une seule : x). 
H est permis de s'inspirer de l'algorithme de NEWTON (ou de la tangente}: 
Xor = Xa — (x) P (Xa) qui calcule x,+1, approximation meilleure que x, 
NEWTON =. H[.%]) NB. conjonction 
Usage : Xan = (f NEWTON fp) x 
Xow = ( (£ NEWTON fp)*:k ) xa 
Ici, on utilise la « puissance fonctionnelle » k ( entier positif ou nul ). 
La suite récurrente (x,) converge (quand tout se passe bien !) vers x, 

racine de l’équation f(x) = 0 ; fp(x) est la dérivée de f(x) 


Exemple : pour résoudre x = cos(x) ou f(x)=0 avec f(x) =x —cos(x), 


écrivons : 

f =, -2&o NB. verbe représentant la fonction x-cos(x) 

fp = 1: +1&o. NB. verbe représentant sa dérivée première 
Partons de xo= 1.5 

NB. Si nous utilisons NB. Si nous utilisons 
NB. Xnet = COS(Xn) NB. la conjonction NEWTON 
» C&o.}"(i.20) 1.5 >» (£ NEWTON fp)*:(.6) 1.5 
LS 1S 
0.070737201667703 0.784472397719411 
0.997499167206586 0.739518709832052 
0.542404992339220 0.739085174705196 
0.856469708947328 0.739085133215161 
0.655108801780784 0.739085133215161 
0.79298 1645797353 Convergence beaucoup 
0.701724 168276573 plus rapide 
0.7637303 11290859 ( d'ordre 2 ) 
0.722261082134520 
0.7503 12885709986 
0.731475558034674 On a défini et exécuté 
0.744 189586630583 P= Old 
0.735637098348715 P I5 
0.741403372909269 pour obtenir 15 chiffres affichés. 
0.737521554461599 
0.740137474793432 » (£ NEWTON fp}"() 15 
0.738375854160239 0.739085133215161 
0.7395627261 70268 Utilisation de la « puissance 
0.738763336576956 fonctionnelle » infinie. 
ete... 
Convergence lente A suivre! 


{ordre 1} 
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Développement Objet en APL+Win 3.5 
par Eric Lescasse 


Introduction 


La version 3.5 d'APL+Win va sortir dans quelques semaines et pour la première fois, il sera 
possible de créer ses propres objets en APL+Win, au niveau système. 


Le but de cet article est de décrire cette nouvelle fonctionnalit 
innovations APL depuis de nombreuses années. 


l'une des plus importantes 


APL+Win 3.5 


Avant tout, décrivons succinctement quelques nouvelles caractéristiques d'APL+Win 3.5 
dont nous nous servirons dans cet article. 


Cette fonction démontre le nouvel environnement de 
développement d°APL+Win 3.5. 


Lorsqu'une erreur se produit dans votre programme ou lors 
‘une interruption du programme à cause d'un Stop, ia 
l'éditeur APL+Win apparait automatiquement avec votre 
programmé chargé dedans et le curseur se trouve positionné 
automatiquement sur la ligne d'interruption. 


1 a Vous pouvez alors corriger facilement votre erreur ou 
) a faire Ctrl+Tab pour passer à la sassion APL+Win ci-desous 

1 » pour tester vos variables, etc. tout en gardant votre programme 
] à sous les yeuz. Les deux fenêtres sont ajustabies en una seule 
1 a opération souris grâce à un "splitter" automatique | 


SYNTAX ERROR 
Testl2] < 4 

(Of restos - ol. ee EE 

Ready Palkade aapied Tee fee eer 4 


Cet image écran démontre le nouvel environnement de développement d’APL+Win 3.5. 


Vous pouvez remarquer : 
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Le nouveau « look » à base de boutons plats de type Word 97 

La présence d'une barre d'outils « debogueur » au-dessus de la barre de statut 

La présence d'une nouvelle « gouttière » le long de l'éditeur APL+Win et de la session 
APL+Win 

L'ouverture automatique de l'éditeur APL+Win avec positionnement du curseur sur la 
ligne fautive lors d'une interruption de programme (erreur ou « stop ») 


Vous pouvez passer de l'éditeur à la session APL, par l'appui de Ctrl+Tab. 
Cet environnement de développement est idéal pour mettre au point ses programmes. 


La gouttière sert à placer/retirer visuellement des « stop » , des « trace » et des marqueurs 
(« bookmarks »). 


Les marqueurs sont très utiles lorsque vous travaillez sur vos objets, En effet, comme nous 
allons le voir dans cet article, les objets sont souvent des fonctions APL de grande tailles, 
puisqu'ils doivent incorporer de nombreux comportements et propriétés. Une fois quelques 
marqueurs positionnés par l'appui de Ctrl+F2 sur la tigne comportant le curseur, il vous suffit 
d'appuyer sur F2 pour sauter d'un marqueur à l’autre. La navigation dans un très long 
programme devient très aisée et rapide. 


Par ailleurs citons quelques autres améliorations de l'environnement de 
développement APL+Win 3,5: 


La timite maximum du nombre de lignes mémorisées dans la session APL est portée de 
2000 à 8006 lignes 

Des bulles explicative apparaissent automatiquement lorsque le curseur survole un nom de 
fonction ou de variable dans la session APL ou l'éditeur! 

Le support des noms longs d'espace de travail 

Des barres d'outils personnalisables et flottantes/détachables 

F1 ouvre l’aide contextuelle correspondant au mot sous lequel se trouve le curseur 


© DSTOP et OTRACE positionnables visuellement par Ctrl+. Et Ctrl+, dans l'éditeur 


Outre les améliorations de l’environnement de développement APL (une partie négligée par 
tous les fournisseurs APL depuis de longues années), APL+ Win 3.5 comporte un très grand 
nombre d'améliorations touchant tous les aspects de l'APL. Il serait trop long et hors de 
propos de les décrire ici. 


Intéressons-nous maintenant à l'amélioration la plus importante : la possibilité de définir et 
d'utiliser ses propres objets. 


! Par exemple, lorsque le curseur survole le nom de la variable aaa définie comme aaa+ 110, la bulle fait 
apparaître: aaa + 10 © 1 2 3 4 5 6 7 8 9 10 
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Rappel sur la programmation objet en APL+Win 


Avant d'analyser comment APL+Win vous permet de créer puis utiliser vos propres classes 
d'objets, it est utile de rappeler comment fonctionne la programmation objet en APL+Win. 


La programmation objet en APL+Win s'effectue à l'aide des fonctions systèmes DWI et ONZ. 
Les objets que vous pouvez utiliser en APL+Win sont en standard: 
Tous les objets de Windows 95/98 et NT (Button, Check, Combo, Edit, Form, Frame, 
Imagelist, Label, List, Listview, MDIForm, Media, Menu, Option, Page, Picture, 
Printer, Progress, RichEdit, Scroll, Selector, Spinner, Status, Timer, Toolbox, 
Trackhar, Tree et l'objet # ou objet Système) 


Tous les objets OCX et ActiveX existants (des milliers d'objets, Freeware, Shareware et 
produits commerciaux) 


Tous les logiciels qui supportent la technologie COM de Microsoft, teis Excel, Word, 
etc. 


Les objets de communication TCP/IP (avec la fonction système ONT) 
Tous les objets que vous pouvez utiliser en APL+Win se caractérisent par: 

Des propriétés (=des états de ces objets) 

Des méthodes (=des actions que l'on fait effectuer à ces objets) 


Des événements (=des informations que ces objets transmettent lorsqu'ils subissent des 
actions) 


Quelques exemples d'utilisation d'objets en APL+Win 


Créons une fenêtre: 


"ff" OWI ‘New’ ‘Form' 
ff 


Par cette instruction nous créons une fenétre Windows. En fait nous créons une nouvelle 
(New) instance de la classe d'objet fenêtres (Form) et nous donnons le nom ff à cette 
instance. Nous avons utilisé un premier objet: l'objet Form. 


Changeons deux propriétés de cet objet: 
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'ff' OWI ‘caption' ‘Les objets en APL+Win' 


objets en API win 


nf 
4 


Par cette instruction nous indiquons que nous voulons modifier le titre (caption) de notre 
instance de fenêtre (que nous appellerons désormais abusivement "notre objet") ff. 


Nous pouvons de même interroger la taille de la fenêtre (sa propriété size), puis modifier cette 
taille et modifier la couleur de la fenêtre (propriété color). 


'ff' OWI ‘size’ 
5.9375 42.375 


'ff' OWI 'size' 12.25 28 


‘ff' OWI 'color' 0 255 0 


Maintenant, rendons notre fenêtre "toujours visible” puis appliquons une méthode à 
notre fenêtre. 


'ff'UWI'style'16 


"f£'OWI'Draw' ‘Clear'l'Brush'1 255)('Circle'6 12 6 .5) 
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Finalement, faisons en sorte de réagir à un événement se produisant sur notre fenêtre. Les 
événements possibles sont: 


'ff' OWI 'events' 

Close DdeConnect DdeDisconnect DdeExecute Delete Destroy DragEnter 
DragLeave DragOver Drop DropDown ExitError Focus Hide KeyDown 
KeyPress KeyUp Modified MouseDouble MouseDown MouseDrag MouseE 
nter MouseLeave MouseMove MouseUp Move Open Paint Reopen Resize 

Send Show Unfocus Wait 


Indiquons  APL+Win que nous souhaitons être informé de tout clic souris se produisant 
dans notre fenêtre. 


'ff' OWI ‘onMouseDown' 'UWARG' 
Cette instruction indique à l'interpréteur APL+Win, que dès qu'un clic (événement 
MouseDown) se produira dans le fenêtre, et à ce moment seulement, il devra exécuter la 
chaîne de caractères et donc afficher dans La session APL, le contenu de la variable 


système . Cette variable contient toujours les informations importantes relatives à 
l'événement qui vient de se produire. 


Maintenant, voyons si nous sommes précis et essayons de cliquer au centre du cercle rouge. 
Je viens de le faire et voici ce qui s'est affiché dans la session APL: 


6 12.125 1 1 0 


Mon clic est tombé assez proche du centre du cercle dont les coordonnées étaient 6 12 (voir 
l'instruction Draw … Circle ci-dessus)! 


Pour l'instant nous n'avons utilisé qu'un objet de class Form. 


Utilisation d'un objet ActiveX 
Utilisons maintenant un objet ActiveX, c'est à dire un objet exteme à APL+Win. 
La grande nouvelle est que vous disposez, peut être sans le savoir, de dizaines, voire de 


centaines de ces objets, gratuitement, sur votre propre micro ordinateur. Et certains d'entre 
eux sont exceptionnels de fonctionnalités et d'utilité! Et vous pouvez vous en servir aussi 
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facilement en APL+ Win que s'il s'agissait d'un objet interne à APL, avec la même fonction 
et la même syntaxe qui a déjà été exposée ci-dessus. 


Comment connaître la liste de tous ces merveilleux objets? 
C'est très simple: il suffit d'interroger la propriété ‘xelasses” de l'objet système: 


Paaa+'#'Gwi'xclasses' 
259 4 


Comme vous le voyez, je dispose personnellement de 259 objets ActiveX sur mon ordinateur. 
Je n'en liste ci-dessous que quelques uns au hasard, Ces objets sont très variés. Avec les 
quelques objets cités, je peux facilement réaliser des applications APL+ Win qui: 


Gèrent des images 

Utilisent des objets grilles sophistiqués (Formula One et 
Incorporent Internet Explorer 5 dans mes fenêtres APL!!! 

Font de superbes graphiques en 2D et 3D (ChartFX) 

Contrdlent l'orthographe de documents (VisualSpeller} 

Transférent des fichiers sur Internet (Microsoft Internet Transfer Control) 

Utilisent des champs texte avec masques de saisie dans mes fenêtres 

Et même créent un véritable éditeur HTML WYSIWYG de haute qualité grâce à l'objet 
DHTML Edit Control de Microsoft. 


ideosoft} 


aaal;1 21 


Contrtle d'edition d'images Kodak 16D940220-9F11-11CE-83FD-02608C3EC08A) 
Microsoft Forms 2.0 ToggleButton {8802 1D§ 0-EC42-11CE-SE0D-00AA006002F3) 
Navigateur Web Microsoft {8855 F95 1-249A-11D0-A965-00C047D705A2) 
VC Formula One 5.0 Workbook {1385 1003~A525-11D0-86DA-00508CB9FBFB) 
ChartFX Control {8396 B041-07BE-101B-8650-00AA003AS593) 
VisualSpelier Control 197PACEDO-3103-11CE-8385-524153480001) 
:-) VideoSoft FlexGrid Control <8093FCD0-0A81-11D2-BAA4-04F205 010000) 
Microsoft Internet Transfer Control, version 6.0 (48E53293-9880-11CF-3754-00AA00 
00308) 

Microsoft Masked Edit Control, version 6.0 {C932BAB5-4374~101B-AS6C-00AAD03668D 
c 

DHTML Edit Control for IES 42D360200-FFFS-1141 
—8D03-00A0C953RC0A} 

DHTML Edit Control Safe for Scripting for IES (20360201-FFFS-11d1 


—8D03-00A0C353BC0A} 
Et je n'ai listé là qu'une dizaine d'objets parmi les 259 dont je dispose. 
Un exemple: 


Créons une fenêtre APE, contenant Internet Explorer 5, connectons-nous à Internet et allons 
visiter mon site Web: 


‘int’ OWI 'New' ‘Form' 
‘int.msies' OWI ‘New’ ‘Navigateur Web Microsoft 
‘int'OWwl'onResize' "'int.msieS'DWT'where'0 0,'int'OWwl'size'" 


Le première instruction crée une fenêtre APL. 


La seconde crée une instance du navigateur Internet Explorer 5 et l'incorpore dans le 
fenêtre {la notation int.msieS indique que l'objet msie5 est un enfant de la fenêtre int). 
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Vous noterez que Navigateur Web Micrasoft est le nom exact de l'un des objets ActiveX. 
existants sur ma machine (voir ci-dessus) 

La troisième instruction indique à APL+Win qu'il devra redimensionner Internet 
Explorer en lui donnant les dimensions exactes de La fenêtre chaque fois que celle-ci 
changera de taille (c'est à dire lorsque je modifierai la taille de la fenêtre à l'aide de ta 
souris) 


Maintenant, supposons que j'active ma connexion Intemet. Pour aller visiter mon site Web, 
avec ma mini application APL, il suffit que j'écrive: 


‘int.msie5' OWI 'Navigate' ‘http://www. lescasse.com' 


Lescasse Consulting” 


1m Feuille - 92300 Boulogne «Franca 
poke 0 76. Fax: (33) 146 Da 60 23 Portable: (33) 6 19 21.21.69 
es Raniera: B 21 920387 00011 APE: 7232 TVA: PR LA 411 928 187 


Home Page 


Baada fist Last update: 1999-02-17 visits: 8167 


* Domina. aði swan version 30.15 New fat hom ae can ron 
Pepe 

+ Download the latest Forefront Halo Versions New Exel, Cos, wd 
À p En 

5 Rte PANER EL À work anac ta dasnioas! 

oe EE nn ora nr feu 
LÉ ea mater eine Bien FE 

APL+ Win 3.0 has arrived ang is avakobio! BOD 

Dana a morena gema SES 


© Grann 3.2 for APL 
2 Doi veaa ta is avalan! 


Il n'est bien sûr pas nécessaire que Internet Explorer occupe la totalité de ma fenêtre APL et 
je pourrais aisément créer une application APL sophistiquée qui utilise Internet Explorer 
dans une partie de la fenêtre de mon application! 


Bien sûr, la fenêtre ci-dessus n'est pas seulement un image mais bien une instance complète 


d'Internet Explorer 5, me permettant de naviguer librement sur mon site et sur Internet, en 
cliquant sur les liens hypertextes qui apparaissent dans la page- 
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Au passage, j'en profite pour vous indiquer qu’APL (aussi bien APL+Win que Dyalog 
APL) permet désormais de développer des applications Internet complètes et complexes. 
IL est en effet possible de développer un Serveur Web en APL (en moins de 200 lignes 
d'APL+Win). 


Si vous vous connectez sur mon site Web à l'adresse http:/Ayww.lescasse.com (voir ci- 
dessus) entrez votre nom et votre adresse E-mail dans le formulaire Guest Book, qui se 
présente à vous. Vous recevrez alors une page de réponse qui vous expliquera qu'un Serveur 
Web APL vient de traiter votre requête et vous présentera quelques citations très 
intéressantes de développeurs américains concernant APL+Win et Internet. 


Lorsque vous cliquerez sur le bouton Submit, ces informations seront automatiquement 
envoyées à mon serveur Internet dans le centre de Paris et traitées sur ce serveur par un 
APL+Wi 


Ce Serveur Web APL est un "Service NT APL+Win" qui fonctionne de façon permanente 
et fiable depuis plusieurs mois maintenant. 


Il analyse les réponses du formulaire, les enregistre dans une base de données (un simple 
fichier APL à composantes) et m'envoie automatiquement un E-mail pour me prévenir et 
m'informer du visiteur qui vient d'aller voir mon site. 


Pour l'instant, mon Serveur Web APL ne gère que ce formulaire, mais il a été construit pour 
gérer autant de formulaires, compteurs Internet, bases de données, etc. qu'il est possible 
d'imaginer et ceci pour tous les visiteurs simultanés qui se connectent sur mon site. 


Utilisation d'objets COM 
Un autre type de développement objet consiste à exploiter la technologie COM de Microsoft. 


De façon très simplifiée cette technologie a été créée pour permetre à des objets et logiciels 
disparates de communiquer et d'échanger des données entre eux. 


A titre d'exemple. montrons comment il est possible en quelques instructions APL de 
complètement piloter Excel et d'exploiter Excel depuis une application APL+ Win. 


L'expression: 
‘ex’ Owi ‘New’ 'Excel.Application' 


démarre Excel 97 sous la forme d'un objet APL nommé ex et le charge en mémoire (sans te 
montrer pour l'instant). 


Vous pouvez immédiatement demander à voir la liste de propriétés, méthodes et événements 
disponibles, comme pour tout objet. Ces listes étant trop longues contentons-nous de 
demander le nombre de propriétés, méthodes et événements disponibles pour notre objet 
Excel: 


p'ex'Dwi'properties' 
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159 

P'ex'Owi'methods' 
60 

p'ex'Owi'events' 
6 


Les objets COM sont en réalité constitués d'une hiérarchie d'objets et sous-objets. L'accès 
aux sous-objets se fait par l'intermédiaire de certaines propriétés de l'objet COM, avec une 
syntaxe de "redirection" de cette propriété vers un sous objet. 


Commençons par montrer notre objet Excel: 


'ex'Owi'visible'l 


Vous remarquerez qu'aucun classeur n'est ouvert par défaut. En effet un classeur Excel est un 
objet {en fait un sous-objet d'Excel) et il nous faut le créer. 


It faut tout d'abord créer un objet "Collection de Classeurs". Appelons-le ex.wkbks: 
‘ex'Dwi'Workbooks>ex.wkbks' 


La syntaxe précédente, nouvelle pour Owi, permet de rediriger la propriété Workbooks vers 
la création d'un objet relatif à cette propriété. 


Maintenant, créons un classeur (=ajoutons un classeur Excel à notre collection), avec 5 
feuilles de calcul: 


'ex' Dwi’ Sheet sInNewWorkbook'S 
‘ex. wkbks'Owi' XAdd>ex.wkbk’ 
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Notre fenêtre Excel dev: 


Tl nous faut maintenant rendre actif le Classeur ainsi créé. 


‘ex.wkbks'Owi'Itemex.wkbk'1 
‘ex.wkbk'Uwi'Activate' 


La documentation du modèle objet d'Excel nous indique qu'il faut maintenant créer un objet 
"collection de Feuilles” ainsi qu'un objet "Feuille" et rendre actif cet objet feuille en passant 
son numéro à la propriété Item, puis en invoquant la méthode Activate: 


"ex. wkbk'Owi' Worksheets>ex.wkshts' 
‘ex. wkshts'Owi'Item>ex.wksht'2 
"ex. wksht'Owi'Activate' 


Ces 3 instructions sont similaires aux instructions ayant permis de créer les objets “collection 
de Classeurs" et "Classeur" ci-dessus. 
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Par exemple, créons un tableau généralisé en APL: 


report+?5 3p10000 
report+'APL+Win' ‘APL+Dos' 'APL+Unix' 'APL+PC' 'APL+Li 
nk‘, report 
report+(AV2ANSI"'' ‘Jan' 'Fev' 'Mar');report 
report 
Jan Fev Mar 
APLtWin 1742 6851 5158 
APL+Dos 9066 5967 4005 
APL+Unix 7432 9805 3459 
APL+PC 3804 9630 8291 
APLtLink 996 1328 1045 


Preport 
64 


Pour installer ce tableau dans la feuille Excel active, il faut créer un objet “plage de cellules" 
{'range” en anglais), enfant de notre feuille: 


‘ex.wksht'Owi'Range>ex.rng' 'B2:E7' 
"ex. rng'Qwi'Value' (report) 


Notez qu'Excel traite ses tableaux en plaçant les colonnes avant les lignes, contrairement à 
APL, d'où la nécessité de transposer notre tableau généralisé APL. 


Ajoutons maintenant une série de formules en bas du tableau pour effectuer les sommes des 
colonnes: 


‘ex.wksht'Owi'Range>ex.rng' 'C8:E8' 
‘ex.rng'Owi'Formula' ‘=sum(C3:C7)" 


Notez que nous n'avons indiqué qu'une formule pour 3 cellules et qu'Excel s'est chargé tout 
seul, d'une part de reproduire la formule dans chacune des 3 cellules C8, D8 et E8 et d'autre 
part de la traduire en =SOMME(C3:C7) =SOMME(D3:D7) et =SOMME{E3:E?). 


Maintenant encadrons les diverses plages de titre: 


‘ex.wksht'Owi'Range>ex.rng' 'B3:B7' 
‘ex.rng'Uwi'BorderAround'1 3 

‘ex.wksht'Owi'Range>ex.rng' 'B2:E2! 
‘ex. rng'Owi' BorderAround'1 3 

‘ex. wksht'Owi'Range>ex.rng' 'B8:E8' 
‘ex. rng'Owi' BorderAround'1 3 

'ex.wksht'Owi'Range>ex.rng' ‘B2:E8* 
‘ex.rng'Owi'EorderAround'1 4 
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Puis alignons à droite le contenu des colonnes C D et E: 


"ex. wksht 'Owi'Range>ex.rng' 'C2:E8' 
"ex. rng'Owi'HorizontalAlignment' 4152 


Changeons maintenant la police des titres de ligne et de colonnes de notre tableau. Pour cela il 
faut créer un objet "police" qui soit un enfant de l'objet "plage" 


‘ex.wksht'Owi'Range>ex.rng' 'B3:B7;C2:£2;B8:E8' 
"ex. rng'Dwi' Font>ex.rng.fnt' 
‘ex.rng.fnt'Uwi'xName' ‘Arial’ 
‘ex. rng.fnt'Owi' size'12 
"ex. rng. fnt ‘Owl ‘Bold'1 
Puis élargissons la colonne B pour tenir compte de ta police de plus grande taille: 


‘ex.wksht'Owi'Range>ex.rng' ‘Bi‘ 
"ex. rng'Owi' ColumnWidth'16 


Pour terminer donnons le nom "Ventes" à l'onglet de la feuille active: 


‘ex.wksht'Uwi'xName' ‘Ventes 
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Finalement notre objet Excel et notre tableau ont l'aspect suivant: 


Changeons le titre de notre fenêtre Excel: 


‘ex'Dwi'caption' (AV2ANSI'Démonstration APL+Win Objet à 
AFAPL') 


Notez l'utilisation de la fonction utilitaire AV2 ANST (livrée avec APL+ Win) pour convertir 
les caractères du DAV en caractères ANSE. 


a 
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TI faut bien que grâce à la technologie COM, Exeel est devenu un objet qu'APL peut 
manipuler à loisir, exactement comme nous le souhaitons. 


Enfin, si nous souhaitions sauvegarder notre workbook, rien ne serait plus simple: 
‘ex. wkbk'Owi'SaveAs' 'c:\temp\afapl.xls' 
et pour le recharger plus tard: 


‘ex.wkbks'Owi'XOpen' ‘c:\temp\temp.x1s' 


Qu'avons nous appris à l'étude de cet exemple? 


1. Des produits tels qu'Excel, Word, etc. sont des objets ActiveX qu'il est possible de 
manipuler entièrement depuis APL+Win 

2. La syntaxe à utiliser ne fait appel qu'à une seule fonction système APL+Win (Owi) et est 
tras simple 

3. Un produit comme Excel est une hiérarchie d'objets que l'on peut représenter ainsi: 


Excel Application 


Vaive 
Formula 
Characters 
Border 
Alignment 
Font 
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Résumons toutes les instructions APL relatives à notre exemple Excel dans une fonction 


ExceiExample; report 
Av ExcelExample ~~ Démontre le pilotage d'Excel depuis APL 
av avec la technologie COM 


report+?5 3P10000 
report-'APL+Win' ‘APL+Dos' 'APL+Unix' ‘APL4PC' ‘APL+Link’, report 
report+{AV2ANSI"'' 'Jan' ‘Fév' ‘Mar')yreport 


Dwseif- 'ex'Uwl'Create' ‘Excel. Application" (‘visible"1) 
‘ex'Owi'Workbooks>ex.wkbks' A crée un nouveau classeur 
’ex'Dwi'SheetsInNewWorkbook'5 a nombre de feuilles à ajouter 

‘ex. wkbks'Owi' XAdd>ex. wkbk* 
"ex. whbks' Owi' Itemvex.kbk' 1 
‘ex. wkbk "Owl Activate" 
‘ex. wkbk' wi ' Horksheets>ex.wkshts' 
“ex. wkahts'Owd ‘ Ttemex.wksht'2 
‘ex. wksht'Owi ‘Activate’ 


"ex. wksht '‘Ows ‘Range>ex.rog' 'B2:E7' a envoi d'un tableau APL ds Excel 
"ex. rng'Owi' Value‘ (Breport) 


vex. wksht 'Owi'Range>ex.rng' 'CB:E3' a création de formules ds Excel 
‘ex. rng'Owi' Formula’ ‘=sum(C3:C7)" 


"ex.wksht 'Dws'Range>ex.rng' 'C2:E8' a changement alignement horizontal 
"ex. rng'Owi 'HorizontalAlignment' -4152 


‘ex. wksht Dwi’ Range>ex.rag' ‘83:37’ a encadrement de plages de cellules 
‘ex-rng'Owi' BorderAround'1 3 
‘ex.wksht'Owl'Range>ex-rng' ‘B2:E2 
‘ex. rng'Owi' BorderAround'1 3 
‘ex. wksht ‘Owl ‘Range>ex.rag' ‘B8:E8* 
‘ex. rng‘ Twi ‘BorderAround"1 3 
‘ex.wksht'Owi'Range>ex.rng' *B2:E8" 
‘ex. rng'Dwi'BorderAround'1 4 


‘ex.wksht'Dwl'Ramge>ex.rng" '83:B1;C2:E2;B8:E8' À changement de police 
ex.rng'Uwi' Font>ex.rng.fnt* 


'ex.rag.fnt'Dwi’Bold'1 


‘ex-wksht'Owl'Rangeæex.rng' 'B1' a changement de largeur de colonne 
ex. rng’ Dwi’ ColumnWidth'16 


'ex.wksht'Owi'xName’ ‘Ventes' a changement du nom de la feuille 
‘ex'Owi'caption' {AV2ANSI' Démonstration APLtWinObjet à AFAPL') 


'ex.wkbk'Owi' SaveAs' 'c:\tempafapl.xls' a sauvegarde du classeur 
ex. wkbks'Dw1'XOpen' 'c:\temp\temp.x1s' a chargement d'un autre classeur 
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Créer vos propres objets en APL+Win 


Avec la nouvelle version 3.5, APL+Win va plus loin et vous permet de créer vos propres 
objets, au niveau système. 


C'est à dire que vous allez pouvoir définir leurs propriétés, méthodes et événements, puis 
vous servir de la fonction DWE pour utiliser vos objets comme s'ils s'agissaient d'objets 
Windows standard. 


Ce qui est remarquable, c'est la pureté et la simplicité du système conçu par APL2000 pour 
vous permettre de créer vos objets. 


Les concepts de base de ce nouveau système sont les suivants: il suffit d'ajouter à APL+Win 
deux nouveaux événements: 


Un événement onNew qui se produit chaque fois que l'on se sert de DWT' New’. En 
interceptant la demande de création d'un objet, avant qu'il ne soit créé par le système, il est 
ainsi possible de le créer soi-même avec toutes les caractéristiques souhaitées, en 
s'appuyant sur un ou plusieurs objets existants dans APL+Win 


Un événement onAct ion qui se produit chaque fois que vous tentez d'utiliser une 
propriété ou une méthode sur votre propre objet, avant que le système APL+Win ne tente 
d'exécuter cette propriété ou méthode 


Grâce à ces 2 idées de génie, APL2000 a pu implanter un système qui vous permette de créer 
vos propres objets, quelque soit leur nature et leur complexité, sans alourdir son interface 
Windows actuelle, sans modifier vos habitudes de programmation, sans ajouter la moindre 
fonction ou variable système à APL+Win. 


Aves le système qu'ils ont créé, vous pouvez commencer à bâtir une hiérarchie d'objets aussi 
complète et sophistiquée que celle de Delphi par exemple. 


Vous pourrez utiliser l'héritage, le polymorphisme, etc... 


Vous pourrez enfin réellement réutiliser vos objets d'une application à l'autre, sans avoir à 
"réinventer la roue" à chaque fois. 


Après avoir expliqué la création d'objets personnalisés en APL+Win, je vous montrerai 
quelques exemples d'objets extraits de ma propre bibliothèque d'objets. 


Comment créer un objet personnalisé en APL+Win 3.5 


La meilleure façon de démontrer est (comme toujours) de prendre un exemple. 


Tous les langages de développement Windows possèdent un objet "Edit" ou "zone de texte" 
pour permettre la saisie à l'écran. Tous possèdent également un objet “Label” ou "zone de 
texte statique” pour permettre l'affichage de texte dans une fenêtre. 

Lorsque vous voulez créer une zone de saisie dans une fenêtre, vous devez la plupart du 
temps associer une zone “Edit” et un “Label”. 
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Exemple: 


Uwself+-'ff.lab'Owi'Create' ‘Label'('caption' 'Nom')('w 
here'10 10 20 30) 


Owself+'ff.edi'Uwi'Create' ‘Edit'('where'10 43 20 100) 


Comme vous le constatez, il n'est pas très difficile de créer une fenêtre avec un Label et un 
Edit. 


Malgré tout, il faut 2 instructions puisqu'il y a 2 objets à créer (en dehors de fa fenêtre). Par 
ailleurs nous constatons que le texte du Label n'est pas a la même hauteur que le texte saisi. 
Enfin, si nous devions déplacer la zone de saisie, en mode "design" ou par programme, il 
faudrait effectuer un second déplacement similaire pour le Label, avec le risque de ne pas le 
repositionner tout à fait correctement par rapport à la zone Edit. 


Egalement, si nous souhaitions changer la police des éléments de notre fenêtre, il faudrait 
effectuer deux opérations: un changement de police pour le Label et un changement de police 
pour la zone Edit. 

Toutes ces remarques nous amènent à imaginer un nouveau type d'objet qui serait la 
combinaison d'un Label et d'un Edit, toujours parfaitement solidaires l'un de l'autre et 
parfaitement positionnés l'un par rapport à l'autre. 

Tentons de créer un tel objet. 

Choisissons TLabelEdit comme nom de classe pour ce nouveau type d'objet. 


La première chose à faire est de déclarer ce nouvel objet de façon à ce qu'il soit connu 
d'APL+Win. 


Ceci est réalisé en ajoutant ce nom de classe d'objet à ja propriété newclasses de l'objet 
système d'APL+Win. 


‘#'Owi'newclasses' ‘TLabelEdit’ 
Maintenant définissons une gestion d'événement pour l'événement OnNew: 


‘#'Owi'onNew' 'TLabelEdit"New"' 
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Ceci signifie que lorsque nous tenterons de créer une instance de notre objet TLabelEdit en 
écrivant: 


‘ff. le'Owi'New' 'TLabelEdit' 


l'événement onNew se déclenchera et exécutera la fonction TLabelEdit avec un argument 
droit égal à ‘New’, 


Vous remarquerez que nous prenons grand soin de nommer la fonction qui gèrera notre 
nouvel objet, du même nom exact que la classe de cet objet. En effet, lorsque nous aurons 
créé des dizaines ou centaines d'objets personnalisés, cela facilitera la maintenance. Par 
ailleurs, en APL+Win, lorsque l'on appuie sur Ctrl+Shift+O lorsque le curseur est sur un 
nom de fonction, cela ouvre la fonction dans l'éditeur: il sera donc très pratique de 
simplement mettre le curseur sur Le mot TLabelEdit à l'écran et de faire Ctrl+Shift+O pour 
éditer la fonction qui gère cet objet. 
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Création d'un nouvel objet 


Nous allons donc développer une fonction TLabelEdit correspondant à notre objet, et nous 
altons nous efforcer de placer la totalité de notre objet dans cette fonction (propriétés, 
méthodes, gestion d'événements, ...) sans appeler de sous-programmes. 


De cette façon notre objet sera facilement réutilisable. Il suffira de copier sa fonction dans 
une autre application. 


Le squelette que je recommande pour les fonctions d'objets personnalisés est le suivant: 


Vv A TClass B;Dio;Owself 


[$9] AY A TClass B -- TClass Template Object 

{21 av à ++ object name 

[3] av B++ ‘property’ 

[4] av or ‘property value 

{51 av or 'Method" 

{61 av or ‘Method' argumenti ... argumentN 

£7) 

fal Dio-1 A environnement 
[9] :if 2#nc'A' © A-Dwseif © :end A objet par défaut 
[10] :select B 

E11) :case'New' 8 constructeur 
{221 Owself«A Owi'*Create' ‘Class’ A création objet 
(131 Owi'sonAction' ‘TClass"Action"' a onAction handler 
[14] :case'Action' 

(15) rselecttOwarg 

1161 icase'class' 

117) Owres-' TClass' 

t181 :case'methods' 

13] Owres+(Uwi'xmethods') 

(201 :case'properties' 

[211 Qwres+(Dwi’ properties’) 

(223 else 

(231 Owres+Owi's! 

1241 rend 

[25] :else 

(261 Derror'Unkown TClass command: ',B 

{271 :end 


v 


L'argument droit de nos fonctions d'objets seront des noms de propriétés {suivies de valeurs 
ou non), des noms de méthodes (suivies d'arguments ou non), des noms d'événements. 


L'argument gauche de nos fonctions d'objet sera toujours le nom de l'instance d'objet que 
nous souhaitons créer. 


En ligne 9, s'il n'y avait pas d'argument gauche passé à la fonction d'objet, nous récupérerions 
le nom de l'objet dans la variable système OWSELF. Ensuite, le reste de la fonction est une 
clause :select dont les différents :case comprendront toujours: 


Le tease’New' ou “constructeur” qui contiendra les lignes de code servant à créer une 
instance de notre objet 

Le :case’Action’ qui recevra et gèrera tous les appels à des propriétés ou méthodes de 
l'objet 
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Le telse qui renverra une erreur en cas de non reconnaissance du nom de la propriété ou 
méthode invoquée. 


Que mettre donc dans te constructeur de notre objet? Eh bien, if nous faut créer deux objets, 
un Label et un Edit. 


Mais nous souhaitons nous assurer qu'ils possèdent tous les deux une échelle “pixels”, ce qui 
se fait en fixant leurs propriété ‘scale’ à 5. Voici la fonction TLabelEdit, obtenue en 
remplaçant TClass par FLabelEdit partout dans la fonction TClass, puis en ajoutant les 
lignes 12 et 13: 


v A TLabelEdit B;0io;Dwself 


{11 av A TLabelEdit B -- TLabelEdit Template Object 

[2] av A ++ object name 

[3] av B ++ ‘property' 

[41 Av or ‘property! value 3 

IS) av or ‘Method 

{61 Av or ‘Method' argument ... argumentN 

[el 

ta)  Oio-1 a environment 

191 :if 2#0nc'A' © A-Uwself © :end a default object 

[10} :select B 

[11] case New' a constructor 

122} Uwself+A Owi'*Create' 'Edit'(‘scale's) a create an Edit object 
1131 Uwself+(a,'Lab')0wi'+Create' ‘Label'('scale'S) a now a Label 
i14] Dwi'*onAction' 'TLabelEdit"Action"' a onAction handler 
[15] :ease'Action’ 

fi! rselect tUwarg 

a7] icase' class’ 

tial Owres~' TLabeledit’ 

[191 :case' methods’ 

1201 Owres+ (Owi '*methods' ) 

123] :¢ase' properties’ 

t221 Owres-(0wi'+properties"} 

1231 telse 

t24] Owres+Owi's' 

(25) tend 

[261 :e1se 

(271 error’ Unkown TLabelEdit command: ',B 

(281 tend 


v 
Nous pouvons désormais créer une instance de notre objet: 
'ff.le'Dwi'New' 'TLabelEdit' 


Toutefois les 2 sous-objets qui le composent se trouvent positionnés au centre de l'écran et 
sont superposés. 


Nous souhaitons que notre objet TLabelEdit dispose d'une propriété where qui nous 
permettent de les positionner correctement sur notre fenêtre. 
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Création d'une propriété 

Il nous faut d'abord pouvoir préciser quel est le texte du Label associé au contrôle Edit, 11 
faut pour cela que nous puissions changer la propriété caption du Label. Mais n'oublions pas 
que notre objet est un ensemble Label + Edit et qu'il ne connait pas lui-même de propriété 
caption. 

1 faut done en définir une. 


La définition d'une propriété d'un objet personnel est très simple. Il suffit d'ajouter un 
scase'nom_de_ propriété' au :select du :case' Action‘ de l'objet. 


Toutefois pour une propriété il faut traiter 2 cas: 


L'interrogation de ia valeur actuelle de la propriété 
Le changement de valeur de la propriété 


Ceci sera très simplement réalisé à l'aide d'une structure : send, comme suit: 
:case' caption’ 
:if l=pQwarg 
Owres- (À, 'Lab‘ )Owi'caption’ 
relse 
(A, 'Lab')Uwi'caption' (2>0warg} 
rend 


Vous noterez 2 points essentiels. 

Lors de l'utilisation d'une propriété ou d'une méthode, Ja variable système Qwarg contient 
toujours en premier élément le nom de la propriété ou méthode invoquée, et dans les éléments 
suivants, la nouvelle valeur de fa propriété ou les arguments de la méthode. 

Par exemple, si nous exécutions: 


’ff.le'Owi'caption' 'Essai' 


Owarg contiendrait un vecteur généralisé de 2 chaines de caractères, comme le montre 
l'instruction suivante: 


display Owarg 


+ at 
caption! |Essailt 

DE ‘1 
é an 


Or 
{i 
j> 


Par ailleurs, il faut placer dans la variable système Owres ce que nous désirons recevoir 
comme résultat. 


La clause zif correspond à l'interrogation de la valeur actuelle de la propriété caption et la 


clause :else à sa modification. 
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d'un objet doivent être implémentées de cette façon. 


‘oir ajouté Je :ease'caption’ à notre objet TLabelEdit, nous pouvons utiliser la 
caption de notre objet: 


‘ff. le'üwi'caption' 


JeLab 


En APL+Win, la caption par défaut d'un Label est égale à son nom. 


"ff. le‘Owi'caption' 'Nom du salarié! 
Le changement de valeur d'une propriété ne rend pas de résultat, 


Comme vous le constatez, l'implémentation d'une propriété d'un objet est une tâche 
relativement simple. 


Création d'une méthode 


Pour calculer la position exacte du contrôle Edit, il nous faudra connaître la longueur exacte 
en pixels du Label. 


Pour ce faire nous pouvons écrire une fonction utilitaire LabelSize dont voici le code: 


v ReLabelSize L;F;C;D;E;F;Dio 
{11 av ReLabelSize L- Calcule les dimensions en pixels du Label 
{21 av L ++ nom de l'objet Label 

[3] av R +> longueur du label en pixels 


[51 Uio+1 


(61 C-L Owi'caption' a texte du Label 

LI] Deimas". tL a nom de la fenêtre 

l8] E-D Owi'scale' a échelle de la fenêtre 

(31 D Owi'scale's a force échelle "pixels" 

[101 iif 0€PF+L Dwi'font' a si pas de police définie 

tail Fe'MS Sans Serif'8 0 A police par défaut 

[12] end a fin 

[13] ReeD Owi'Draw' ((c'Font'),F)((c'?Text'),C) a longueur Label 

(141 D Dwl'scaie'E a rétablie échelle fenêtre 
v 

Exemple: 


LabelSize'ff.leLab' 
13 22 


Toutefois, de façon à éviter tout sous programme pour notre objet TLabelEdit, il est 
souhaitable d'implémenter cette fonction utilitaire en tant que méthode de l'objet. 


Comme pour l'ajout d'une propriété, l'ajout d'une méthode à notre objet consiste à ajouter un 
icase'nom_de_méthode au :select du :case’Action’ de l'objet. 


si 


ges Nouvelles ABC N° 30 ‘Développement Obet en APE WA 15 -Eric Lesrass - 12 Avril 1999 


Ajoutons donc le code de la fonction LabelSize à notre objet TLabelEdit. Notre fonction 
TLabelEdit devient: 


v A TLabelEdit B;C;D;E;FiLilio;Dwself 
[1] av A TLabelEdit B —— TLabelEdit Template Object 


[2] av A ++ object name 

[3] av B ++ ‘property’ 

[4] Av or 'property' value 

(s} AY or 'Method' 

(6) av or 'Method' argumentl ... argumentN 

(7) 

a) Dio+1 a environnement 

[9] :{f 2r0nc'A' o A-Dwseif © :end a objet par défaut 
[10] :select B 

[11] :case'New' A constructeurr 
{121 Dwseif-A Owi'*Create' 'Edit'(‘scale's) 

1131 Dwself-(A,'Lab')Owl'+Create' ‘Label'{'scale'5) 

1141 A Owi'*+onAction' 'TLabelEdit"Action"' 

[151 :case’Action’ 

115] :selecttDwarg 

(171 rcase'class' 

(181 Owres-' TLabelEdit' 

{191 :case'methods' 

[201 Dwres-(Dwi'amethods") 

[21] case‘ properties" 

(221 Owres+ (0wi’«properties') 

(231 :case'caption’ a propriété caption 
[24] :1f l=pOwarg 

125] Gwres- (A, ‘Lab‘ )Owi' caption‘ 

[26] reise 

[27] (A, ‘Lab' )Dwi' caption’ (22Qwarg) 

[281 send 

[291 :case'LabelSize' A méthode LabeiSize 
[30] L-A, "Lab" A nom du Label 

[31] C-L Owi' caption’ a texte du Label 
[32] D+(-1#+£r".")tL a nom de la fenêtre 
(33) E-D Owi'scale' a échelle de la fenêtre 
[34] D Owl'scalets a force échelle pixels 
135) sif O<pF+L Owi'font' ® si police non définie 
(36) Fe'MS Sans Serif'@ 0 a police par défaut 
137] send fin 

1361 Owres+€D Owt'Draw'((c'Font'),F)((c'?Text'),C) 
139] D Dwi‘scale'E a rétablit échelle fen. 
[40] ‘else 

[41] Owres+Owi's' 

[421 tend 

1431 :else 

1441 Derror'Unkown TLabelEdit command: ',B 

1451 :end 


v 
Uiilisons notre nouvelle méthode: 


‘ff.le'Owi'LabelSize' 
13 89 


Tout marche bien: notre Label a une longueur de 69 pixels et une hauteur de 13 pixels. 
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H nous faut maintenant implémenter une propriété where pour pouvoir positionner 
parfaitement ie Label et son Contrôle Edit associé. 


Création de la propriété where 


Créons donc la propriété where pour notre objet. 


Lorsque nous définirons une position dans l'écran pour TLabelEdit, ce sera celle du coin 
supérieur gauche du Label. La position du Edit devra se déduire automatiquement de celle 
du Label en respectant: 


Le fait que le texte du Label devra être à la mème hauteur que le texte du contrôle Edit 


Le fait que le contrôle Edit devra commencer 5 pixels après le dernier caractère du Label 


Voici comment implanter fa propriété where: 


1471 :case'where' a propriété where 
48) L-A, ‘Lab! A nom du Label 

us] D=Ce1+0warg a argument de where 

t50) rif 4#pC a contrôle argument 

(52) Gwres-'La propriété where doit contenir 4 éléments 
(521 :return a sortie si erreur 

Gal rend 

1541 LE F)<Owi'LabelSize'L a dimensions du label 
t55) Dt ectil-3 a position vert. du Edit 
156) DI21-C121+F+5 a position horz. du Edit 
157) DL31-E47 n ajuste hauteur du Edit 
t58) DLA J-CIA) a longueur du Edit 

t59) C3 414E F n dimensions du Label 
1601 L Owi'awhere'C n positionne le Label 
1611 À Owi'swhere'D A positionne le Edit 


Le principe consiste à récupérer ta valeur de la propriété where de notre objet TLabelEdit 
(ligne 49), à affecter cette propriété au Label (ligne 60), à récupérer la longueur exacte en 
pixels de notre Label (ligne 54 qui appelle notre méthode LabelSize), puis à ajuster 
précisément la propriété where du contrôle Edit associé au Label, en fonction de la propriété 
where du Label (lignes 55 à 58) et enfin de forcer les dimensions du Label à être 
précisément celles de sa caption (ligne 59). 


Vous noterez la présence des étoiles devant la propriété where en lignes 42 et 43. 
Ceci est en effet nécessaire pour la raison suivante: nous avons implémenté une propriété 
where pour notre objet TLabelEdit qui porte le même nom qu'une propriété existante dans 
APL+Win (where} pour les contrôles Label et Edit. 

La présence d'une étoile devant where en ligne 42 et 43 indique à APL+Win d'exécuter la 
propriété where standard des Label et Edit et non d'appeler à nouveau la propriété where que 
nous venons de définir dans notre objet TLabelEdit. 


Si nous n'avions pas mis d'étoile (*) devant where en ligne 43, notre programme entrerait 
dans une boucle sans fin! 
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Essayons notre propriété where: 


'ff.le'Dwi'where'10 10 15 100 


Vous noterez que la zone Edit est parfaitement positionnée dans les 2 cas par rapport au 
Label. 


Le texte de la zone Edit est exactement à la même hauteur que le texte du Label. 

La zone Edit commence exactement à la distance souhaitée après le Label, 

Enfin, le dernier élément de notre propriété where fixe la longueur du contrôle Edit. 1] était 
en effet inutile de l'appliquer à la longueur du Label puisque celle-ci est calculée et modifiée 
dans le code de la propriété where de TLabelEdit. 


Maintenant, que se passe-t-il si nous modifions la propriété caption de notre Label: 


Les Nouvelles d'APL N° 30 ‘Développement Objet en APLAWn 15 -Erie Leseasse - 12 Awil 1999 


‘ff.le'Uwi'caption' 'Nom' 


Démo L 


Comme vous le constatez, La position de La zone Edit n'est pas ajustée automatiquement pour 
être placée juste après le Label. 


Comment pouvons-nous remédier à ce petit problème de notre objet TLabelEdit. 
H suffit d'ajouter l'instruction suivante à la propriété caption de notre objet TLabelEdit: 

A Owi'where'((3t(A, ‘Lab' )Owi'*where'),42A Owi'*where') 
En effet, le fait de changer la propriété where de notre objet TLabelEdit permet de recalculer 
parfaitement la position du Label et du Edit. Comme nous ne voulons pas changer la 
position du Label, nous tui réaffectons la position actuelle (soit: 
(31(A, ‘Lab’ )Owi' xwhere' }). Il nous faut seulement récupérer la largeur de notre 
contrôle Edit (soit: 42A Owi'swhere'). Vous noterez à nouveau l'utilisation des étoiles 
pour indiquer que nous voulons utiliser fa propriété where standard d'APL+Win et non la 
propriété where de notre objet TLabelEdit. 
Réessayons maintenant de modifier la caption de notre objet: 


‘ff.le'Qwi'caption' ‘Nom' 


Notre objet Edit se repositionne maintenant parfaitement, juste après le Label en tenant 
compte de la nouvelle longueur de ce dernier. 


A vrai dire, nous commençons à disposer d'un nouvel objet personnalisé (TLabelEdit) qui 
correspond exactement à nos désirs. I nous permettra d'aller beaucoup plus vite pour définir 
des fenêtres de saisie et de plus nous permettra d'obtenir une interface parfaite au pixel près. 
Bien d'autres propriétés et méthodes pourraient être ajoutées à cet objet, mais je souhaitais 


simplement vous montrer les principes du développement d'objet personnalisés en APL+Win 
35. 


Ajout du Destructeur 
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Tl nous reste toutefois une fonctionnalité indispensable à implémenter dans notre objet 
TLabelEdit: la destruction de l'objet. 


En effet, de même que tout objet personnalisé doit comporter un constructeur (méthode 
'New'), tout objet doit en principe comporter un destructeur. 


Si nous n'ajoutions pas de destructeur à notre objet, nous n'effectuerions pas une destruction 
propre de l'objet en écrivant: 


‘ff.le'Dwi'«Delete' 


En effet cette instruction détruit le contrôle Edit (qui porte le même nom que notre objet) 
mais pas le Label, qui s'appelle ff.leLab. 


La preuve en est le résultat de cette destruction: 


Pour résoudre ce problème il nous faut gérer l'événement onDelete sur l'objet Edit et, dans la 
fonction de gestion de cet événement, il nous faut détruire l'objet Label. 


Voici le code nécessaire: 


:case'New' a constructeur 
Owself+A Uwi'+Create' 'Edit'('scale'5) 
Dwi'onDelete' "TLabelEdit'onDelete'" 
Owself+(A,'Lab')}Owi'*Create’ ‘Label'(‘scale'5) 
A Owi'+onAction' 'TLabelEdit"Action"' 
:case'onDelete' A destructeur 
{A,'Lab’ }Owi'sDelete’ 


Ainsi, la destruction de l'objet TLabelEdit est parfaite. 

Cette même technique de destruction, utilisant l'événement onDetete du sous-objet principal 
{ici le contrôle Edit) d'un objet personnalisé doit être appliquée systématiquement pour 
détruire les sous-objets associés (ici le Label). 


Essayons notre nouveau destructeur. Mais d'abord recréons, en une seule instruction, un 
objet TLabelEdit dans notre fenétre: 
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‘ff. le'‘Owi'*Create' 'TLabelEdit'('caption’ ‘Département 
‘}{'where'60 10 15 150) 


Et maintenant détruisons le: 


‘ff.le'Owi'xDelete' 


Cette fois-ci la destruction est parfaite. 


Création d'un événement 


Supposons que dans une application utilisant l'objet TLabelEdit, nous di 
réagir à toute modification de la propriété police de notre objet TLabelEdit. 


ions pouvoir 
Tout d'abord, il nous faut créer une propriété police pour notre objet TLabelEdit, qui modifie 
à la fois la police du Label et la police du Edit. 


En voici le code: 


1361 :case'font' 


(371 rif 1=pOwarg 

(381 Owres+(A, ‘Lab‘ )Owi'*font' 

1391 telse 

{401 C+14Dwerg 

141] L-A, 'Lab' 

1421 L Dwi'æfont'C 

143] A Dwi'sfont'c 

144] À Owi'where'((3tL Owi'awhere'),4>A Owi'*where') 
[45] A Dwi'*tEvent' "TLabelEdit'onFontChange'" 'onFontChan 
ge'(1+0warg) 

[46] rend 


En ligne 45 nous avons défini un nouvel événement qui se produira donc à chaque fois que 
l'utilisateur ou l'application modifiera la propriété font de l'objet TLabelEdit. 


Cette instruction utilise la nouvelle méthode Event (disponible pour tout objet d'APL+Win 
3.5) pour indiquer au système de générer immédiatement un événement onFontChange qui 
sera géré par l'expression TLabelEdit'onFontChange’. 
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Ajoutons donc un :case'onFontChange’ à notre objet pour gérer cet événement. 

:case'onFontChange‘ A événement personnalisé 
D-"La police de l'objet ",Dwself," a changé et est devenue ", 

Dwarg 

Essayons maintenant de modifier la police de notre objet: 


‘ff.le'Dwi'*Create' ‘TLabelEdit'(‘caption' ‘Nom de famille') 
('where'30 10 10 200) 


'ff.le'Dwi'font' ‘Arial'20 1 
La police de l'objet ff.le a changé et est devenue Arial 20 1 


Vous remarquerez par ailleurs que la propriété where de notre objet a été parfaitement congue 
puisqu'elle a permis de séadapter automatiquement La hauteur du Label et du Edit, ainsi que 
leurs positions relatives, sans que nous n'ayions eu a ajouter Le moindre code pour ce faire. 


Le texte du Label et du Edit restent à la même hauteur, au pixel près. 


Nous nous somme contentés d'afficher dans la session APL une information sur l'événement 
de changement de police, mais bien sûr, nous aurions pu développer tout autre code APL 
pour gérer l'événement de changement de police. 


Nous pourrions aller plus loin. Par exemple, lorsque nous changeons la police de la fenêtre, 
ce qui change par héritage la police des contrôles de la fenêtre, donc du Label et du contrôle 
Edit, nous pourrions définir un événement onFontChange sur La fenêtre qui permette de 
redimensionner le Label et le contrôle Edit. 


Je vous laisse le soin de mettre en place cette fonctionnalité, à titre d'exercice. 
La page suivante nous reproduit le code complet de la fonction TlabelEdit. 
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Code de l'objet TLabelEdit 


9 A TLabelEdit B;C;D; 


;0io;Owself;G;H 

av A TLabelEdit B -- TLabelEdit Template Object 
av À ++ object name 

av B «+ ‘property’ 

av or ‘property’ value 

av or 'Method' 


av or ‘Method’ argumentl ... argumentN 

Dioei a environnement 
:1f 2#0nc'A' © AtOwself o :end a objet par défaut 
:select B 

:ease'New' A constructeur 


Uwself+A Owi'xCreate' ‘Edit'{'scale'5) 
Uwi'onDelete' "TLabelEdit'onDelete'" 
Gwself+(A,'Lab')}Dwi'aCreate' ‘Label'('scale'5) 
A Owl'xonAction' ‘TLabelEdit"Action"! 
:case'onFontChange' a événement personnalisé 
O-"La police de l'objet ",Owself," a changé et est deve 
nue “,Owarg 
:case'onDelete' A destructeur 
(A,'Lab')Owl'*Delete’ 
case’ Action’ 
:selecttOwarg 
scase'class' 
Dwres+'TLabelEdit' 
:case'methods' 
Qwres+(Owt' smethods') 
tcase’ properties’ 
Owres+(Owl' *properties') 
:case'caption' A propriété caption 
rif 1=pOwarg 
Owres+(A,'Lab')Owl ‘caption’ 
telse 
L-A, "Lab" 
L Owi'caption' (2>0warg) 
A Qwi'where'((3tL Owi'*where'),42A Owl'*where') 
send 
:case'font' 
:if 1=pOwarg 
Owres+ (A, 'Lab' )Owi'*font' 


relse 
C+110warg 
L-A, "Lab" 


L Uwi‘afont'C 
A Owl'xfont'C 
A Owi'where' ((3tL Uwi'+where'),42A Owi'swhere') 


A Owi'sEvent' "TLabelEdit'onFontChange'" ''(1+0 
warg) 
rend 
:case'where' n propriété where 
L-A, 'Lab' ® nom du Label 
DeC+e1+Dwarg A argument de where 
rif 4#pC A contrôle argument 
Dwres-'La propriété where doit contenir 4 éléme 
nts' 
‘return A sortie si erreur 
rend 
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[54] (E F)+Owi ‘LabelSize'L A dimensions du label 
[551 D{11-Cl11-3 A position vert. du Edit 
[56] DI21-CI2)+F+5 a position horz. du Edit 
[571 DI3]+E+7 a ajuste hauteur du Edit 
[58] Dialectal a Jongueur du Edit 

[59] Cl3 4)+E F a dimensions du Label 
(60) L Owi'xwhere'c a positionne le Label 
(63) À Owi'swhere'D a positionne le Edit 
[62] :case'Destroy' a méthode Destroy 

63] (A, 'Lab' )Dwi'sDelete’ a destruction du Label 
(64) A Gwi'xDelete’ A destruction du Edit 
(65) :case'LabelSize’ a méthode LabelSize 

t66) L+A, ‘Lab a nom du Label 

t67) C-L Dwi'caption' A texte du Label 

t68) De(r1+itt.')tL A nom de la fenêtre 

169] E-D Uwi'scale' a échelle de la fenêtre 
1701 D Dwi'scale's a force échelle "pixels" 
1711 :1f 0epF+L Owi'font' a si police non définie 
1721) Fe'MS Sans Serif'8 0 a police par défaut 

(731 send a fin 

1741 Owres+eD Owi'Draw' ((¢'Font'),F)((c'?Text'),C) 

175) D Owi'scale'E a rétablit échelle fené. 
1761 else 

177] Owres+Owi's' 

1781 rend 

[79] else 

[80] Uerror'Unkown TLabelEdit command: 

[81] :end 


Développement d'objets non visuels 
Il est parfaitement possible de créer des objets non visuels en APL+Win 3.5. 


Par exemple un objet "Base de Données Relationnelie" ou un objet "Chronomeétre” par 
exemple. 


Sans entrer dans les détails, sachez qu'il suffit de s'appuyer sur un objet visuel tout en laissant 
cet objet visuel caché. 


L'objet visuel qui demande le moins de ressources système lors de sa création est un objet 
Menu popup. 


La création d'un tel objet est trés simple: 
‘mnu'Owi'New' ‘Menu’ 


d'où le modèle général d'objet non visuel en APL+Win 3.5: 
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v A TNonVisualClass B;C;Qio;Uwseif 


(1) av A TNonVisualClass B TNonVisualClass Template Object 
[2] av A ++ object name 
[3] av B ++ ‘property’ 
tay av or ‘property' value 
{51 av or ‘Method' 
tel a% or ‘Method’ argument! ... argumentN 
$ 
(a) Dio-1 a environnement 
19) cif 2#0nc'A' © A-Uwself © :end a objet par défaut 
110} :select B 
[11] :case'New' a constructeur 
[12] Dwself-A Owi'+Create' ‘Menu’ Aa création objet non visuel 
(13) Dwi'*onAction' 'TNonVisualClass"Action”' a onAction handler 
[14] :case'Action' 
(151 iselecttDwarg 
[16] :case'class' 
t171) Owres-' TNonVisualClass’ 
(181 :case' methods" 
(19) Uwres-(Qwi'smethods') 
120] +case‘properties' 
(21) Uwres+(Uwi'*properties'),‘attach' 'wherelc' 
122) telse 
(23) Owres+Owl'®' 
1241 send 
125) :else 
(26) Uerror'Unkown TNonVisuaiClass command: ',B 
1271 tend 
v 
Héritage 


La possibilité de créer ses propres objets devient vraiment passionnante lorsque l'on peut faire 
intervenir la notion d'héritage. 


Je réserve le développement détaillé de cette notion d'héritage à un prochain article. En 
attendant, les passionnés pourront réfléchir à la façon d'implémenter l'héritage dans les 
modèles d'objets décrits précédemment. 

Le principe de l'héritage est le suivant. 

Nous avons défini un objet générique TLabelEdit avec quelques propriétés et méthodes. 


Supposons dans une application que nous ayons besoin d'un objet disposant de toutes les 
fonctionnalités de TLabelEdit, mais qui de plus n'accepte que de la saisie numérique. 


Deux solutions s'offrent à nous: 
Soit copier la fonction TLabelEdit sous le nom TLabelEditNum par exemple, puis lui 
rajouter la fonctionnalité nécessaire 
Soit créer un nouvel objet de taille minimum, qui hérite de l'objet TLabelEdit et de toutes 
ses fonctionnalités, mais qui en plus sache rejeter toute saisie non numérique 


La première solution est à rejeter définitivement et catégoriquement: c'est celle que nous 
avons tous employé pendant des années, jusqu'à l'avènement de la programmation Objet. 
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Pourquoi la rejeter? 


C'est très simple: si vous êtes amené à modifier la fonction TLabelEdit, vous devrez répéter 
les mêmes modifications dans son clone TLabelEditNum. Et si vous avez créé 10 fonctions 
clones de TLabelEdit, vous devrez répéter les modifications 10 fois. Si vous ne le faites pas, 
vos différentes versions de TLabelEdit vont commencer à diverger avec tous les problèmes 
de maintenance que cela entraine: 


Quelle est la bonne version? 
Comment réunifier toutes les versions de la même fonction? 
Etc. 


La bonne solution est donc d'utiliser l'héritage. 


L'héritage est une fonctionnalité, Lorsqu'on la maitrise, qui est absolument extraordinaire, 
presque magique. 


Lorsque vous savez faire hériter un objet d'un autre objet, vous pouvez alors songer, enfin, à 
construire une hiérarchie complète d'objets, descendant d'un objet générique, par exemple 
appelé TObject. Vous pouvez ainsi construire un arbre d'objets tous les objets héritant 
automatiquement des fonctionnalités de leurs parents, grand-parents, etc. 


Le développement d'un tel ensemble d'objet est certes un très gros travail, mais les bénéfices 
pour le développeur sont immenses: 


gains de temps de développements phénoménaux 
sécurité des applications considérablement accrue 
taille du code de l'application sensiblement réduite 
facilité de développement grandement améliorée 
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Quelques exemples d'objet 


Pour terminer permettez moi de vous présenter quelques exemples d'objets développés en 
APL+Win 3.5, extraits de ma propre librairie d'objets APL. 


Par manque de place, je ne ferais pas ou peu de commentaires sur ces objets, mais vous 
montrerai simplement leur utilisation. 


L'objet TAgent 
‘ag'Owi'*Create' 'TAgent' 


‘ag'Owi'Merlin' 'New' 
‘ag'Uwi'Merlin' 'Show' 


Merlin est un personnage animé, capable de très nombreux comportements, capable de parler 
dans plusieurs langues, de comprendre et de réagir à la parole, d'afficher ce qu'il prononce 
dans des bulles, de jouer de la musique, etc... Voici un extrait de ses comportements 


‘ag'Dwi'Merlin' ‘PlayMethods' 

Acknowledge Alert Announce Blink Confused Congratulate Congratulate_2 
Decline DoMagicl DoMagic2 DontRecognize Explain GestureDown Ges 
tureLeft GestureRight GestureUp Getattention* GetAttentionsConti 
nued Greet Hearing _1 Hearing_? Hearing_3 Hearing_4 Hide Idie1_1 
Idlel_2 Idlei_3 Idlet_4 Idle2_1 Idle2_2 Idle3_1 Idie_2 LookDown 
à LookDown*Blink LookLeft* LookLeft«Blink LookRight* LookRight*E 
link LookUp« LookUpsBiink MoveDown MoveLeft MoveRight MoveUp Ple 
ased Process Processing Reads Read*Continued Reading RestPose Sa 
d Search Searching Show StartListening StopListening Suggest Sur 
prised Think Thinking Uncertain Wave Writes WritesContinued Writ 
ing 


Essayons quelques uns de ces comportements: 


‘ag'Owi'Merlin' 'Play' 'Announce' 


‘ag'Uwi'Merlin' 'Speak' 'I love A.P.L. I want to progr 
am in A.P.L all the time!’ 
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Hove AP.L Iwentto programin 
AP. ail the ime! 


& 


Merlin a 3 frères et soeurs. Faisons les apparaitre: 


g'Owi'Peedy' ‘New' © ‘ag'Owi'Peedy' 'Show' 
‘ag'Owi'Robby' ‘New' © ‘ag'Dwi'Robby' ‘Show' 
‘ag'Owi'Genie' ‘New' © ‘ag'Owi'Genie' ‘Show' 
‘ag'Dwi'Peedy' 'MoveTo' 600 300 


‘ag'Owi'Peedy' 'Play' ‘Idie3_3‘ 


Pour ma fille de 8 ans, interessée par APL, langage qui permet d'animer de si drôles créatures, 
j'ai réalisé une petite interface en APL+Win pour lui permettre de s'amuser un peu. La voici: 


)load 54 merlin 
54 MERLIN SAVED 04/10/1999 22:53:09 
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La fenêtre montre les 4 personnages en train d'écrire (exécution de la méthode Writing). 


Maintenant voyons si ces personnages peuvent aider une petite fille de 8 ans à apprendre 
APL: 


‘ag'Owi' APLTutor' 
Je me suis servi de ces personnages dans des applications pour certains de mes clients, IIs 


sont utilisés pour informer les utilisateurs des nouveautés de l'application au chargement de 
celle-ci. 
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L'objet TODBC 


Tout aussi sérieux, l'objet TODBC est implanté entièrement en APL+Win et permet de 
travailler avec toute base de données relationnelle. 


Il utilise tes API ODBC 3 de Windows. C'est un objet non visuel complexe, de 1722 lignes, 
mais à lui seul il donne accès à toutes les base de données relationnelles depuis APL+ Win 3.5. 
‘odbe'Owi'*Create’ 'TODBC' 


'odbc'Owi' Open’ 'TBM Access Database’ 
80084012 60064512 


‘ odbe'Owi' Tables’ 


Qualifier Owner Name Type 
Remarks 
tbm\Database\ TBM MSysACES SYSTEM TABLE 
tbm\Database\TEM MSysColumns SYSTEM TABLE 
tbm\Database\TEM MSysIMEXColumns SYSTEM TABLE 
tbm\Database\TBM MSysIMEXSpecs SYSTEM TABLE 
tbm\Database\TEM MSysIndexes SYSTEM TABLE 
tbm\Database\TEM MSysMacros SYSTEM TABLE 
D:\tbm\Database\ TBM MSysModules SYSTEM TABLE 
D:\tbm\Dat abase\TBM MSysModu les2 SYSTEM TABLE 
D:\tbm\Database\ TBM MSysObjects SYSTEM TABLE 
D:\tbm\Database\ TBM MSysQueries SYSTEM TABLE 
tbm\Database\ TBM MSysRelat ionships SYSTEM TABLE 
tbm\Database\ TBM MSysToolbars SYSTEM TABLE 
D:\tbmDatabase\TEM agence TABLE 
tbm\Database\TBM Chapitre TABLE 
tbm\Database\ TAM compteurs TABLE 
thm\Database\TEM creation TABLE 
D:\tbmDatabase\TEM données TABLE 
tbm\ Dat abase\ TBM ELASTIC TABLE 
tbmNDat abase\ TAM heure contr TABLE 
tbm\Database\ TBM QDates TABLE 
thmDatabase\TEM ONum TABLE 
tbm\Database\ TEM société TABLE 
D:\tbm\Database\TBM source TABLE 
tbm\Database\ TBM Type TABLE 
tbm\Database\ TBM ag VIEW 
tbm\Database\ TEM compteur VIEN 
tbm\Database\TBM compteurs_Analysel VIEW 
tbm\Database\TBM compteurs_Analyse2 VIEW 
tbm\Database\ TBM compteurs_Analyse4 VIEW 
tbm\Database\TBM Consultation VIEW 
D:\tbm\Database\ TBM donnée VIEW 
thn\Database\TBM Donnée cumulée agence VIEN 
D:\tbm\Da tabase\TEM Donnée cumulée société VIEW 
tbm\Database\ TBM extrait VIEW 
tha\Database\ TBM Requêtel VIEW 
thm\Database\ TBM Requéte2 VIEW 
tbm\Database\TAM Requête3 VIEW 
D:\thm\Dat abase\ TBM Requétet VIEN 
D:\tbm\Database\ TBM retours clients VIEW 
D: \tbm\Database\TEM SeiChextrait VIEN 


" odbe'Owi' methods’ 

Click Close Create Defer Delete Event Exec Modify New Open 
Ref Send Set SetLinks Close Columns Database Exec Init 
Open Query Tables 


‘odbc’ Owi'Columns' ‘Chapitre’ 
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Catalog Scheme Table Column ODBC Type 
D:\tbm\Database\ TBM Chapitre Numero 5 
D:\tbm\Database\ TBM Chapitre libelle 12 

Type Name Display Size Buffer Size Digits Radix 
SHORT 5 2 o 10 
TEXT 50 50 

Nullable Remarks 

1 Numéro du chapitre 0 

1 Libellé du chapitre 1 

‘odbe' Owi' ?7Exec' 

Syntax: ‘object'Dwi'Exec’ sql 
where sql is most any SOL statement (use the Query method for Select s 
tatements) 

Example: 


"odbe'Owi Exec! 


' odbc' Dwi 'Exec' 
'odbc' Owi ' Exec’ 


DE 


“1 


93° 


"odbe'Owi' Exec" 
Ventes 
Activité 
Credit clients 
Marges 
Effectifs 
Stocks 
Exploitation 
Alliance 


Quotidien 
Chiffres Clés 


‘odbe'Dwi' Exec’ 


"BRAVO'')* 
o 


'odbc' Dwi ‘Exec! 
Ventes 
Activité 
Credit clients 
Marges 
Effectifs 
Stocks 
Exploitation 
Alliance 


Quotidien 
Chiffres Clés 
BRAVO 


‘odbe' Dwi ' Exec! 


numero = 193° 


o 


'odbe' Dwi 'Exec' 
Ventes 

Activité 

Credit clients 
Marges 
Effectifs 


‘insert into chapitre(numero, libelle) values(199,'' BRAVO 


‘delete from chapitre where numero = 199' 
‘Update chapitre set libelle-'‘Provisions'' where numero 


‘select * from chapitre 


‘insert into chapitre(numero, libelle) values(199,' 


‘select * from chapitre 


‘Update chapitre set libelle-''Provisions'’ where 


‘select * from chapitre’ 
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6 Stocks 
7 Exploitation 
8 Alliance 
3 
10 Quotidien 
99 Chiffres Clés 
193 Provisions 


‘odbe'Owi'Exec' ‘delete from chapitre where numero = 199° 


‘odbe'Owi'Exec' ‘select * from chapitre’ 
1 Ventes 
2 Activité 
3 Credit citents 
4 Marges 
5 Effectifs 
6 Stocks 
7 Exploitation 
8 Alliance 
3 
10 Quotidien 
99 Chiffres Clés 


“odbc'Owi' Close’ 
L'objet TflexGrid 
L'objet TFlexGrid fait appel à l'objet ActiveX FlexGrid de VideoSoft. 


TI permet d'avoir une grille de saisie hierarchique avec cumuls à plusieurs niveaux et saisie 
dans les cellules par combo box multi-champs. 


Exemple: 


FlexGridExemple 


Total Ger: 
Total UK 1 
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v FlexGridExemple; data 


11] nv FlexGridExemple -- Exemple montrant l'objet TFlexGrid 
(2) av Nécessite l'objet ActiveX VSFLEX6 .OCX de Videosoft installé 
131 

[A]  data-(4/'France' 'Germany' ‘UK'),(1262/'Gold’ 'Silver‘) 
[5) dataedata, (12p'I' ‘E'),(1.$¥"7120200 

[6]  data-'Region' 'Product' 'Type' ‘Sales';data 

[7] Owself~'fmFG'Owd'*Create' 'TForm'('caption' 'TFlexGrid Example’) 
la) Gwself+' fmFG.ss'Owl'sCrea ‘TFlexGrid’ 

19) Owi'wherelc'0 0 -300 7400 

(10) Uwi'attach'1 2 3 4 

ta) Owi'allowediting'1 

(121 Owl'allowsortcols'1 

113) Owi'allowmovecols'1 

[141 Owt'borderstyle'l 

us} Owi'Rows'1 

1161 Owl'Cols'1 

[171 Dwi’ FixedRows ‘1 

Us] Owi' FixedCols'1 

us] Owi'ColWidth'0 300 

{201 Owi‘Add'(0 1)data 

t211 Qwi' colcombo' 1' France| Germany I UK" 

(221 Dwi‘ colcombo'2' Gold! Silver" 

t231 Dwi 'colcombo’3'I; Import iE; Export’ 

(241 a Argument de OutlineBar: 

[25] a O=Sans boutons 1-compléte 2=sans boutons du haut 

[26] a 3-sasn boutons du haut et sans lignes de connexion 
1271 Owi'OutlineBar'1 

[28] a SubTotalPosition: O=totaux en bas 1=totaux en haut 
1291 Dwi’ SubTotalPosition'1 

1301 Owi’ SubTotal’ ‘Sum'4(-1 1 2) 

131) ‘fmFG'Dwi'«size ‘300 400 

(321 'fmFG'Gwi' DemoShow" 

(331 Dwself+'fmrG. ss‘ 


v 


La fonction FlexGridExemple montre l'utilisation de l'objet TFlexGrid ainsi que de 


certaines de ses propriétés et méthodes. 
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L'affichage précédent montre la saisie en cours dans le champ Type par utilisation d'une 
Combo multi-champs. 
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Some Other Triangles and APL 
Joseph De Kerf 


Abstract: In this provisionally lest paper of the series (1)(2)(3) 
(4), we treat "some other" triangles. Properties and in- 
terconnections are discussed. APL defined functions for 
generating those triangles are given. Results of bench- 
marks on cpu time are reported. It may be worthwhile to 
note that in general, algorithms based on recursion, are 
more efficient in cpu time than those based on the clos- 
ed forma. 


0. Introduction 

In a series of previous papers we treated the Pascal triangle (1), 
the De Moivre triangles (2), the Hoggatt triangles(3), and the Hor- 
adam triangles (4). In this provisionally last paper of the series, 
we treat "some other" triangles. Some details about triangles may 
be found in B.A. Bondarenko (5) and in the more recent book publish- 
ed by J.A. Conway and R.K, Guy (6). 


All defined functions shown generate the triangles as a nested vec- 
tor of vectors containing the N first rows of the triangles, such 
that the form 

wae N 

transforms the nested vector of vectors generated by F to a simple 
character matrix containing the N rows of the triangle, adjusted to 
the left and padded with blanks up to the character length of the 
last row. The defined function CENTER rotates the rows of this char- 
acter matrix such that those rows are centered (4). 


The function CENTER has been taken over from those published in the 
book "APL2 in Depth", by N.D. Thomson and R.P. Polivka (7). Defined 
functions shown conform to the proposed new standard ISO APL-Exteni- 


n 
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SCENTERIDIS 
VZHCENTER HER 
(41 Re+/a\? '=0H 
(21 Z+(-L0.51R)0H 
v 


ed, prepared by the ISO APL Working Group ISO-IEC/JTC1/9C22/W03 (21) 
Benchmarks have been done on a MicroLine Pentium $-100, with mathe- 
matical co-processor, using APL/W Version 7.1.2, under Windows 3.11 
(22). Migration Level OML was set to 2, the default value value be- 
ing ©. CPU times have been measured using the system function OMO- 
NITOR. 


Note: In some illustrations, a Generalized Fibonacci sequence, what 
we call an Horadam sequence, is generated. The defined func- 
tion HORS is used. The definition of HORS may be found in (4). 


1, The Beli Triangle 

In 1980, J. Shallit (8) defined what he called the Bell triangle, a 
triangle B(n,k) with k = 1(1)n, as generated by the recursion algo- 
rithm: 


BG,1) = 1 
B(n,t) = B(n-1,n-1) (2<n) 
B(n,k) = B(n,k-1) + B(n-1,k-1) (2<k<n) 


The inconveniess of this algorithu is that, for calculating B(n,k), 
the predecessor B(n,k-1) in it's row must be known. This inconveni- 
ence may be removed by transforming the algorith to the form (9): 
B(4,1) = 1 
Bn,1) = B(n-t,n-1) k-41 (2<n) 
B(n,k) = B(n-t,n-1) + Bn-1,r) (2<ken) 

ret 
such that the elements of the nth row B(n,k) may be calculated from 
the elements of the previous row only, 


A defined function BRLLTR1 generating the Bell triangle, based on 
the algorithm in it's transformed form, is for instance: 


n 
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OBELLTRIC OI? 
V2EBELLTRE N 

[hd AINI Z0 ZEI? 1 

121 ZEBELLTRI N-1 

L31 ZEZ CCHORGZD 400 HN I FOZ 
v 


CENTER 2“BELLTRI & 
1 


12 
235 
571015 
tS 20 27 37 52 
52 67 87 114 151 203 
203 255 322 409 523 674 877 
977 1080 1335 1657 2066 2589 3263 4140 


The nth row contains n elemente. The left side of the triangle, from 
top to down, is the Bell sequence BorBy sBoy e+ and the right side 
of the triangle, from top to down, is the Bell sequence By B2, B3, 
«+e » Rows are not symmetric, the nth row being a strict ascending 
Sequence with as first element B,_; and as last element By This 
means that the maximum of the domain of the right argument of BELL- 
TRI do N= 218, a8 B,,g = 6.1013098348306 and Boy exceeds the lar- 
gest number representable 1.797693135B308. 

#BELLTRI 1041 | 
1125 15 52 203 B77 4140 21147 115975 


LF" OBELLTRE 10 
112515 52 203 877 4140 21147 £15975 


Shallit reported several properties of the elements of the triangle, 
for instance that the sum of the elements of the nth row is the &if- 
ference B,,4 - Bp? 


+/"BELLTRI 10 

1 310 37 151 674 3263 17007 34828 562595 
U2+#"BELLTRI 12)-14#"BELLTRA 11 

1 3 10 37 151 674 3263 17007 54928 562595 
CLS O BELLTRI 11)-4*9*BELLTRI 10 

i 3 10 37 151 674 3263 17007 94828 562595 


BELLTR1 uses implicit recursion. A defined function BELLTR2, based 


RB 
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on the same algorithm, but using a programmed recursion loop, may be 


FBELLTR2ID?” 

9Z+BELLTR2 N 
[11 4CN=13/06Z+1P0r1 
12) END:Z+7,c(#0#82)+0,+\3407 
13] +(N>rZ)/END 

v 


Benchmarks on cpu time have been done for N = 40(40)200. Results are 
shown below (in ms): 


80 120 160 200 


64 119 195 287 
46 91 157 240 


As N increases, BELITR2 is from 53% to 20% more efficient in epu 
time than BBLLTRI, rather considerable, even for higher values of N. 


The question raises, if generating the Bell sequence BoB, Boyes 
from BBLLTR1 or BBLLTR2 as shown above, may compete with explicit 
algorithms. The process may be considerably accelerated by incor- 
porating the deduction of the Bell numbere from the rows of the Bell 
triangle in the defined functions themselves, such as is done in the 
defined functions BELLA and BELLB, respectively using implicit re- 
cursion and a programmed recursion loop (cfr next page). 


Benchmarks on cpu time have been done for N = 40(40)200. Results are 
shown below (in ms): 


N | 40 80 120 160 200 


BBLLA N 18 39 62 89 118 
BELLE N 13 28 46 67 gt 


As N increases, BRLLB is from 38% to 30% more effincient in cpu time 
than BELLA, atill rather considerable, even for higher values of N. 


4 
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VBELLAIDIV 
PZeBELLA N 
(11 FENCED /0,ZECLENEDI PRED 
12] ZeBELLA N-1 
131 ZtZy LFRECH LARD 400 HAR 
v 


BELLA 10 
112515 52 203 877 4140 21147 115975 


9BELLB(D)v 
OZ¢BELLB NFR 
[11 AUNSL)/0, ZAC LEAL DD PRED 
121 END:Z62, 7 18REUT ARR) +0, AR 
t3) +UN2PZ)/END 
v 


BELLB 10 
112515 52 203 B77 4140 21147 115975 


Most important however, as shown in (9), the algorithm is much more 
efficient in cpu time than all other algorithms investigated in that 
paper. Apparently this is mainly due to the fact the algorithm only 
uses addition. It is doubtful if a considerable more efficient al- 
gorithm may be found. 


Note: In 1954, E.T. Bell (10) introduced what he called the exponen- 
tial numbers Bç,B,,B,,...a8 those defined by the Maclaurin ex- 
pension of the generating function: (e*e*x)+e: 
2 


x n 
€ x 
a e> Ba Ta 
= 5 
x x x 
= 0 (By + By + By Ty t Bs Ty + wee 


There ia a strong relation between those Bell numbers and the Stir- 


) 


ling set numbers or Stirling numbers of the second kind 5,(n,k), He 
showed that: 
n 


B, = > soin) 


k=1 k+1 


with SG) = ET [> enr (Et) Gent ] 


r=0 
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A defined function BELLS, based on this algorithu, returning as ex- 
plicit result the Bell number By is for instance: 


9BELLS{DIv 
OZHBELLS NiKIR 
ui 4C+/N#0 12/0,Z+Kei 
121 ENDIRe"1+1Kek#i 
13)  ZéZ4(-/(RIK-HIXCK-RIAN-1)47K-1 
14] (KCN) ZEND 
v 


BELLS 0 
¥ 
BELLS 10 
115975 
BELLS"0+110 
112515 52 203 877 4140 21147 115975 


The maximum of the domain of the right argument N is N = 137, with 
By gq = 1+365959847E172, as for N = 138 the alternating sum, before 
being divided by !K-1, exceeds the largest number representable 
1.797693155B508. Benchmarks on cpu time have been done for N = 40 
(40)120. Resulte are shown below (in ms): 


BELLS 127 311 
BELLS" 0, 1N 551 3536 11967 


As N increases, the form BELLS”"O,UN is from 42 to 260 times slower 
than the form BBLLB N. The algorithm ia only from theoretical im- 
portance, but is unsuited for generating the Bell numbers. 


2. The Stirling Triangle of the First Kind 


The Stirling cycle numbers or Stirling numbers of the first kind 
S, (uk) are the number of permutations of n objects that have just 
k cycles (k = 1.,.n). The Stirling set numbers or Stirling numbers 
of the second kind S (n,k) are the number of groupings of n dis- 
tinct objects into exactly k groups {k = 


n). A lot of detaila 
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about Stirling numbers may be found in (11). Tables of Stirling num- 
vers have been published in (12). Stirling triangles of the first 
anû second kind are defined as those triangles whose nth row is the 
Stirling sequence S(n,k) or S(n,k) respectively. 


The Stirling numbers of the first kind 8,(n,k) may be calculated. us- 
ing the recursion algorithm: 

SG) = 1 f 

S(n,k) = S,(n-1),k-1) + (n-1)84 (n=) ,k) 


A defined function STFKTR! generating the Stirling triangle of the 
first kind, based on this algorithm, is for instance: 


OSTFKTRILOI? ` 
OZESTFKTRI N 

LAJ 4ENS1) 700 2ECNLLO PLE 

i2] ZeSTFKTRI N-t 

L3) ZEZ C(O tOZ IFC CP HOZIAFOTIAD 
x 


CENTER J"STFKIRE 8 
1 


it 
231 
61161 
24 50 35 10 1 
120 274 225 85 15 í 
720 1764 1624 735 175 21 t 
5040 13068 13132 6763 1360 322 28 1 


The nth row contains n elements. Rows are not symmetric. The firat 
element of the nth row is !{n-1). The sum of the elements of the nth 
row is tn. For n>1, the alterneting sum of the elements of the rows 
48 0. The maximum of the domain of the right argument of STFKTRI is 
N= 170, as 8, (170,5) = 1,421086266B306 and 8,(171,5) exceeds the 
largest number representable 1.797693135E308. 


t™STFKTRI 10 

1126 24 120 720 5040 40320 362880 
10,13 

1 12 6 24 120 720 5040 40320 362880 


n 
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+/"STFKTRL 10 

1 2 6 24 120 720 5040 40320 362880 3628800 
$110 

1 2 6 24 120 720 5040 40320 362880 3628800 
~/"STFKIRI 10 

1900000000 


STFKTRI uses implicit recursion. A defined function STFKTR2, based 
on the same algorithm, but using a programmed recursion loop, may be 


OSTFKIR2I019 

VZESTFKIR2 N 
417 +CNS12/0,Z+CNL1DP CLS 
12) END:262,C(0r#027)+(4P#0222#071,0 
13) +UNDPZ)/END 

9 


Benchmarks on cpu time have been done for N = 40(40)160. Results are 
shown below (in ms): 


STFETRI N 27 66 126 211 
FETR2 N 17 48 100 175 


As N increases, STFKTR2 is from 59% to 21% more efficient in cpu 
time than STFKTRI, rather considerable, even for higher values of N. 


Note: In some publications, the Stirling numbers of the firet kind 
are defined by the recursion algorithm: 

80,1) = 1 

S(n,k) = Si(n-1,k-1) = (n-1)84(n-1,k) 


The effect of this is, that the numbers as defined in the text, are 
multiplied by a factor (-1)%"X, In other words, if n is odd and k is 
even or if n is even and k 1s odd, the numbers are given a negative 
sign. 


The corresmonding triangle becomes: 


ee ie | 
2731 
“6 11 61 
24 750 35 710 1 
7120 274 7225 BS “15 1 
720 “1764 1624 7735 175 “21 1 
“5040 13068 713132 6769 71960 322 28 i 


such that for n>1, the sum of the elements of the rows, instead of 
their alternating sum, is O. On the other hand, the algorithm is in 
contradiction with the physical definition of the Stirling numbers 
of the first kind. 


3. The Stirling Triangle of the Second Kind 


The Stirling numbers of the second kind 5, (n,k) may be calculated 
from the recursion algorithm: 

S2(1,4) = 1 

S(n,k) = Sp(n-1,k-1) + k85(n-1,k) 


A defined function STSETRI generating the Stirling triangle of the 
second kind, based on this algorithm, is for instance: 


OSTSKTRIIOIY 
PZESTSKIRI N 

CLJ  #(NS1)/O ZECNLID PELL 

(2) Z*STSKTRI N-1 

[31 Ze, c(0s+02)4#0(ur#02) 1902), 0 
v 


CENTER 2F*STF5KTRI 8 


1761 
115 25 10 1 
1 31 90 65 15 1 
i 63 301 359 140 21 1 
1 127 966 1701 1050 266 28 1 


The nth row contains n elements. Rows are not symmetric. As already 
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mentioned in the first section of this paper, the sum of the ele- 
menta of the nth row is the Bell number Bat The maximum of the do- 
main of the right argument of STSETRI is N = 219, as 8,(219,54) = 
4.1901192148307 and 5,(220,54) exceeds the largest number represent- 
able 1.797693135E308. 


+/"STSKTRI 10 

1 2 515 52 203 877 4140 21147 115975 
1¥BELLB 10 à 

12515 52 203 B77 4140 21147 115975 


STSKTRi uses implicit recursion. A defined function STSKTR2, based 
on the same algorithm, but using a programmed recursion loop, may be 


9STSKTR2[ 0) 

9Z+STSKTR2 N 
[11 FENSLD/0,ZACNEL DCCL 
123 END:Z+Z, C(O, FOZ) + CaP toZ) t92): 
13] +{N272)/END 

X 


Benchmarks on cpu time have been done for N = 40(40)200. Resulats 
are shown below (in ms): 


N 40 80 120 160 200 


STSKTRI N 27 70 136 227 3% 
STSETR2 N 18 50 105 186 320 


As N increases, STSKTR2 is from 50% to 19% more efficient in cpu 
time than STSKTRI, rather considerable, even for higher values of N. 


Note: The Stirling numbers of the first kind S4(n,k) and the Stir- 


ling numbers of the second kind 8,(n,x) may be calculated 
from the closed foras: 


ack 
nker pnelir) f2nck 
S(n,k) = > (1) (nr) (sis) 82 (n-k+r,r) 
mi 
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x-1 
saw = rn [D o (1) ent] 
r=0 


As n increases, accuracy is degenerating. In section one of this pa- 
per, it was shown that a defined function based on the second form 
is very slow. A fortiori for the first form. The algorithms are only 
from theoretical importance, but are unsuited for the generation of 
the Stirling sequences and the Stirling triangles. 


4. The Bulerian Triangle 


The Bulerian numbers B(n,k) are the number of permutations of ln 
which have exactly k ascending runs {k = 1...n).They should be dis- 
tinguished from the so-called Buler numbers Ro which occur ag co- 
efficients in the power series expansions of the secant and hyper- 
bolic secant functions. A lot of details about Eulerian numbers may 
be found in (11). We define in thie paper the Bulerian triangle as 
the triangle whose nth row is the Eulerian sequence E(n,k). 


The Eulerian sequence E(n,k) may be calculated from the recursion 
algorithm: 

E(1,1) = 1 

E(njk) = (n-k+1)E(n-1,k-1) + &R(n-1,k) 


A defined function EULRTR! generating the Bulerian triangle, based 
on this algorithm, is for inatance: 


SEULRTRIIOIS 
9ZHEULRTRI N 

EID FONS1970,ZAONLE Dead 

{21 ZEUCRTRI N-1 

131 ZLez,C((Eut+r#07220,#0Z7)+((1/#87)x407),0 
x 


The nth row contains n elements. Rows are symmetric. The sum of the 
elements of the nth row is !n. The maximum of the domain of the 
right argument of BULRTRI ia N = 171, as B(171,86) = 1.3065784488308 
and K(172,86) = E(172,87) exceeds the largest number representable 
1.797693 1358308. 
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CENTER 23F"EULRTRI 9 
i 
ti 
141 
111413 
1 26 66 26 i 
1 57 302 302 57 1 
1120 1191 2416 1191 120 1 
1 247 4293 15619 15619 4293 247 1 


+/"EULRTRI 10 

1 2 6 24 120 720 5040 40320 362890 3628800 
m10 

1 2 6 24 120 720 5040 40320 362880 3628800 


It may be shown that-(11): > (PF) Binge) = at 
Ks 


such that for instance, if m = 5 and n = 10, the sum is 51°; 


+/(410171456110)1#8EULRTRI 10 
3765625 

510 
9765625 


BULRTRI uses implicit recursion. A defined function EULRTR2, based 
on the same algorithm, but using a programmed recursion loop, may be 


SEULRTR2(Ui 
VZEEULRTR2 N 
ti) +UNS13/0,Ze(NL1)rCul 


121 END:262,C((@u1+r#027)10,#02)+((1r402)2407)40 
{33 PUD PZ) ZEND 
v 


Benchmerks on cpu time have been done for N = 40(40)160. Results are 
shown on next page (in ma). 


As N increases, EULRTRI ia from 43% to 17% more efficient in cpu 
time than EULRTRI, rather considerable, even for higher values of N. 
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N T 40 B0 120 160 


BULRTRI N 33 63 164 260 
EULRTR2 N 25 64 132 223 


Note: The Eulerian numbers E(n,k) may be calculated from the closed 
form (k = 1...n): 


k 
sa = >? (PP) oe” 
r=0 


As n increases, accuracy is degenerating. This degeneration may be 
reduced to some extent, by only calculating B(n,k) for k <[ne2, 
and catenating the result with the reverse of this result for k< 
{n+2. In addition, apart of some overhead, the efficiency in cpu 
time is improved with a factor of about 2. 


A defined function BULRS, based on this algorithm, returning ap ex- 
plicit result the sequence E(n,k) for k = 1(1)n, may be: 


PEULRS( GI? 
VZHEULRS N°K°R 
[1] +(NS1)/0,Z+K+1 
12) ENDIRtO,tKtK+1 
131 ZtZr-/LO.54+CRIN#1)TCK-RIAN 
T4] +(K<TN:2)/END 
151 Zels OULN+2)87 
9 
EULRS 10 
1 1013 47840 455192 1310354 1310354 455192 47840 1013 1 
AOEULRTR2 10 
1 1013 47840 455192 1310354 1310354 455192 47840 1013 1 


The maximum of the domain of the right argument is N = 158, giving 
B(158,79) = E(158,80) = 3.988818325291, as for N = 159 some of the 
terms of the alternating sum exceed in absolute value the largest 

number representable 1.79769313585308. 


Benchmarks on cpu time have been done for N = 40(40)120. Results are 
shown on next page (in ms). 


3 


As N increases, the form BULRS"IN is from 12 to 46 times slower than 
the form BULRTR2 N. The algorithm is only from theoretical importan- 
ce,. but unsuited for the generation of the Bulerian sequences ana 
the Eulerian triangle. 


5. The Wong and Maddockx Triangle 


In 1975, C.K. Wong and T.W. Maddockx studied the numbers M(n,k) gat- 
isfying the recursion relation (13): 

M(1,1) = M(2,1) = M(2,2) =1 

Mn,k) = M(n-2,k-1) + M(n-1,k-1) + M(n-1,k) 


We call in this paper the Wong and Maddockx triangle, the triangle 
whose nth row is the Wong and Maddockx sequence M(n,k) with k = 
1...n. A defined function WOMATR1, generating the Wong and Maddockx 
triangle, based on the recursion algorithm shown, is for instance: 


OWOKATRITOI9 
SZ-UOMATRI N 

eu +(NS1)/0,Ze(NL1)PCLI 

(21 +(N=2)/0,162,02/1 

131 ZEWOHATRI N-1 

L4) ZEZ ElL, C#T242)#C714#02)414407),1 
0 


CENTER 2F"*WOMATRS B 
1 


1551 
171371 
19252531 
t 11 41 63 41 11 1 
1 13 61 123 129 61 13 1 


The nth row contains n elements. Rows are symmetric. The sum of the 


Les Nouvelles dare N° 30 


elements of the nth row is the Pell number P, (4). The maximum of 
the domain of the right argument is N = 810, as M(810,405) = 
M(810,406) = 1.316675461B308, and M(811,406) exceeds the largest 
number representable 1.797693135E308. 


+/*UDHATRL 10 

1 2 5 12 29 70 169 408 985 2378 
Per 212 
P HORS 10 

1 2 5 12 29 70 169 408 985 2378 


Wong and Maddockx also showed that thesums of the elements on the 
ascending diagonals of the triangle form the Tribonacci sequence: 
diode. à 


10#+/(1-110)8(3WDMATRI 10240199 10r0 
11247 13 24 44 81 149 


WOMATR1 uses implicit recursion. A defined function WOMATR2, based 
on the same algorithm, but using a programmed recursion loop, may be 


SWOHATR2(01v 
VZEWOMATR2 N 
[11  +(NS12/0,Z+(NL1)PCuT 
121 +(N=2)/0,2+7rc2?1 
(31 END:Z+29c(1,(472#2)9("14802Z)+14402),1 


14) + (NDPZ)/END 
v 


Benchmarks on cpu time have been done for N = 100(100)500. Resulte 
are shown below (in ms): 


[o 100 200 300 400 =. 500 


WOMATRI N 113 320 632 1060 1675 
WOMATR2 N 70 233 503 879 1447 


The algorithn looks relatively slow, but for N = 200, the cpu times 
are of the same order as those for the other triangles treated in 


EL 


this paper. As N increases, WOMATR2 is from 61% to 16% more effici- 
ent in cpu time than WOMATR1, rather considerable, even for higher 
values of N. 


Note: Tribonacci sequences T,,7,,75,--. may be defined by the recur- 
sion algorithm: 


™ = P 
T = aq 
T3 = r 
Tp = af, + Do + chy (n>3) 


the sequence generated by the suma of the elements on the ascending 
diagonals of the Wong and Maddockx triangle being the Tribonacci se- 
quence p=1 q=1 r=2 a=1 b=1 c=1. 


Defined functions TRIBI and TRIB2 generating the Tribonacci sequen- 
ce, based on this algorithm, and using implicit recursion or a pro- 
grammed recursion loop respectively, are for instance: 


9TRIB{(01v 
9Z+P TRIBI N 
a1 3(NS3)/0,Z(NL3IPP 
12] ZeP TRIBI N-1 
[31 Z#Z,+/(734P)x "387 
Û 
9TRIB210)v 
ZEP TRIB2 N 
LAI +CNS3)/0,ZCHL3)FP 
121  ENDI3(N>PZE2,+/(734P)2734Z)/END 
v 


the left argument P being the vector p q,r a,b,c and the right argu- 
ment N specifying the number of elements of the sequence requested. 


Peli 2144 
P TRIBE 10 
11247 53 24 44 81 149 
P TRIBZ 10 
112 4 7 13 24 44 8i 149 


The Tribonacci numbers Ta may also be calculated explicitly from the 
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auxiliary equation t? - ct? - bt - a = 0. The question raises wheth- 
er, just like for the Horadem sequences, calculating the Tribonacci 
sequence directly from the auxiliary equation is much more efficient 
in cpu time than generating the sequence from the recursion algo- 
rithm (14). A paper on Tribonacci sequences and a paper on Tribo- 
nacei triangles will be submitted for publication in the near fu- 
ture. 


6. The Shapiro Triangle 


In 1976, D.W. Shapiro constructed the triangle whose elements of the 
nth row are the sequence S(n,k) with k = 1...n, sequence defined by 
the recursion algorithm (15): 

81,1) = 1 

S(n,k) = S(n-1,k-1) + 28(n-1,k) + S(n-1,k+1) 


A defined function SHAPTRI, generating the Shapiro triangle, based 
on this recursion algorithm, ia for instance: 


VSHAPTRIIOI9 
9ZESHAPTRI N 
LAI +(NS12/0,Z-(NL1DP CL 
(2) ZTeSHAPTRI N-1 
CSP Zélrc((0,"14#02)+(22492)4014407) Oe 
v 


CENTER 25*"SHAPTRI B 


4248278 1 
132 165 110 44 10 1 
429 572 429 208 65 12 1 
1430 2002 1638 910 350 90 14 1 


The nth row contains n elements. Rows are not symmetric. The first 
element of the nth row is the Catalan number LRU such that the 
left side of the triangle, from top to down, is the Catalan se- 
quence CRETDÉETEES + The sum of the elements of the nth row is 
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1 (+1)c The maximum of the domain of the right argument N is 517, 
as 5(517,16) = 8.61680321B307, and 9(216,16) exceeds the largeat 
number representable 1.7976931358308. 


*"SHAPTRE 10 

1 2 5 14 42 132 429 1430 4862 16796 
+/"SHAPTR1 10 

1 3 10 35 126 462 1716 6435 24310 92378 
0.5x(1+110)x+"SHAPTRI 10 

1 3 10 35 126 462 1716 6435 24310 92378 


Shapiro showed that the numbers S(n,k) may be expressed as a sum of 
products of Catalan numbers: 


S(n,k) = > Cy, Ca, Cig +++ Cy, here the summation is over all 


values for which 14 + ip + iz +... + i, = n. This is why Shapiro 
called his construction a Catalan triangle. 


SHAPTRI uses implicit recursion. A defined function SHAPTR2, based 
on the same algorithm, but using a programmed recursion loop, may be 


OSHAPTR2(0)¥ 

VZESHAPTR2 N 
£1) +ENS12/0,Z(NL1)P CAN 
t2} END:Z67,C((0,"14492)#(2402)+(14402),0),1 
13) +{NrZ)/END 

9 


Benchmarks on cpu time have been done for N = 100(100)500. Results 
are shown below (in ms): 


500 


2003 
87 303 658 1158 1876 


The algorithm looks relatively slow, but for N = 200, the cpu times 
are of the same order as those for the other triangles treated in 
this paper. SHAPTR2 is 26% and 16% more efficient in cpu time than 
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SHAPTRI for N = 100 and N = 200 respectively, rather considerable 
for that domain of N. 


Note: The Catalan number Ca is the number of trees with n nodes. It 
may be shown that (11): 


ea = aw (3) 


A defined function CATAS,.based on this form, generating a vector 
containing the Catalan sequence Cy sO s yeoe , the right argument 
N apecifying the number of elements of the sequence requested, is 


for instance: 


SCATASEDIY 
VZECATAS N 
[1) ZECNI2XN)ELENEUN 
° 
CATAS 10 
129 14 42 132 429 1430 4962 16796 
0.52(1+110)XCATAS 10 
1 310 35 126 462 1716 6435 24310 92378 


Benchmarks on cpu time have been done for N = 100(100)500. Reaults 
are shown below (in as): 


N 100 200 300 400 500 


CATAS N 45 13.1 27.9 46,6 71.4 


CPU times are very low. It is doubtful if a considerable more effi- 
cient algorithm may be found. 


7. The Agarwal Triangle 


In 1990, A.K. Agarwal introduced a new class of numbers A(n,k), de- 
fined by (16): 


Alma) = (OX (ant) a (1<%<n) 


Los being the Lucas number of order 2k-1 (4). We call in this pa- 


per the Agarwal triangle, the triangle whose nth row is the Agarwal 
sequence A(n,k) with k = 1...n . 


Lucas numbers La are the Horadam numbers Ep’ with parameters p= 1 
q=3 r=1 8=1. In (14), it is shown that, calculating the 
Horadam numbers explicitly from the auxiliary equation, this means 
by the Binet form, is much more efficient in cpu time than calculat- 
ing those numbers from the recursion algorithm. For the Fibonacci 
numbers Pa and the Lucas numbers L,, this Binet form is respective- 
dy (17): 


n n 
a + 5) - 4 45 


PF. = 


= 1 1 2 3 5 8 13 21 34 55 ... 


n h 
p= 2 à es) 
= 13 4 7 11 18 29 47 76 123 a. 


It has been shown that (18), for the calculation of the Fibonacci 
numbers F,» as the second term converges to 0, it suffices to cal- 
culate the first term and rounding off the result to an integer. 
Apart of some overhead, the calculation is speeded up by a factor 
of about 2. For n>1, the same process may be applied when calcu- 
lating the Lucas numbers L: 


n: d5) rounded 
1 1.61803 - 
2 2.61803 3 
3 4.23607 4 
4 6.85410 7 
5 11.09017 ii 
6 17.94427 18 
7 29.03444 29 
8 46.97871 47 
9 76.01316 76 

10 122.99187 123 


A defined function AGARTR1, generating the Agarwal triangle, based 
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on the definition given above, and incorporating the shortcut speci- 
fied, is for example: 


PAGARTRIIOIG 
VZFAGARTRI N:K:L:N 
[ES] I(N$1)/0 ZEINLID PCL 
(2) Le1,LO.S#( 0.51450. Sd e142 Net 
t3) ZFAGARTRI N-1 
14) Kermedeptoz 
151 ZEZ CET THN-KILCHHLILEN-KI E714 20K 
v 


CENTER 28*AGARTRI B 
i 


“34 
10 720 11 
“35 84 “77 29 
126 “336 396 261 76 
7462 1320 “1815 1595 “836 199 
1716 “5148 7865 78294 5928 2587 521 
76435 20020 “33033 39585 734580 20895 77815 1364 


The nth row contains n elements, Rows are not symmetric. If n-k is 
even, A(n,k) is positive, If n-k ie odd, A(n,k) is negative. The sum 
of the elements of the rows ia 1. The maximum of the domain of the 
right argument is N = 443, as A(443,199) = 5.9002047228307, and the 
absolute value of A(444,199) exceeds the largest number represent- 
able 1.7976931358308. 


+/*AGARTRI 10 
LL AT BAL ACL À 


The abaolute value of the first element of the nth row of the tri- 
angle is t (n41) Cu and as such ia the sum of the elements of the 
nth row of the Shapiro triangle. 


I#*ACARTRI 10 

1 3 10 35 126 462 1716 6435 24310 92378 
0.52(1+110)xCATAS 10 

1 3 10 35 126 462 1716 6435 24310 92378 
+/"SHAPTR2 10 

1 310 35 126 462 1716 6435 24310 92378 


si 


Ees Nouvelles ¢ APE N° 30 


The last or nth element of the nth row of the triangle A(n,n) is the 


Lucas number L, 1. 
tP@"ACARTRI 10 

1 4 11 29 76 199 521 1364 3571 9349 
Per 311 
{19r1 0)/P HORS 13 

1 4 11 29 76 199 521 1364 3571 9349 


AGARTRi uses implicit recursion, A defined function AGARTR2, based 
on the same algorithm, but using a programmed recursion loop, may be 


VAGARTR2(01¢ 

VZEAGARTR2 N; a) 
[11 +UNSH)/0,Ze(NL1)PCN 
12) L+1,:(0.5+(0.5x1+5#0,5)#14+2%1N-1 
(31 END:KeuHel+p #02 
{41 Ze, CUT LAM-KITCMALOINCMN-KI IT 14+24H 
{51 +(N>7Z)/END 

9 


Benchmarks on cpu time have been done for N = 100(100)400, Results 


are shown below (in ms): 


N 100 200 300 400 
AGARTRI N 509 2967 9056 20505 
AGARTR2 N 417 2713 8560 19686 


The algorithm is very slow: for N = 400 the cpu time is about 20 
seconds, Agarwal however showed that for k<n, the element A(n,k) 
may be calculated from the element A(n-1,k) through the recursion 
algorithm: 

AQ,1) = 1 


Ank) = - FR) gon i) Uasken) 


the element A(n,n) being, as already mentioned, the Lucas number 
Bont? Defined functions AGARTRA and AGARTRB, based on this recur- 
sion algorithm, using implicit recursion and a programmed recur- 
sion loop respectively, are for instance: 
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VAGARTRALDIF 
VIHAGARTRA N KINGR 
LLI +€NS13/0,Z6CNLLDP CUL 
[2] ZEAGARTRA N-1 
{31 Kemer #07 
14) Re-27HR(142xM)10402)+(14H-KI)XH4K 
[51 Ze2,CR,L0.5+(0.511+5#0.5)#1+24H 
x 
SAGARTRBIUIV 
VZHAGARTRB NEK NIR 
ti) FENCED 7/0, ZE(NL EDP CLL 
121  END:KeiMer #07 
13) Re-22Hx(14+2XH)X (407) (14M-KIXNTK 
[41 LEZ, CR, 10.5+(0,511+5#0,5)#1+2XM 
{51 FCN PZ) /END 
v 


Benchmarks on cpu time have been done for N = 100(100)400. Results 
are shown below (in ms): 


EN ET 


AGARTRA N 134 380 747 1230 
AGARTRB N 109 331 671 1129 


As N increases, AGARTRA and AGARTRB are from 4 to 17 times more ef- 
ficient in cpu time than AGARTRI and AGARTR2. The cpu times for N = 
200 are of the same order as those for the other triangles treated 
in this paper.AGARTRB is 23% and 15% more efficient in cpu time 
than AGARTRA for N = 100 and N = 200 respectively, rather consider- 
able for that domain of N. 


Note: Agarwal gives the numbers A(n,k) the sign of (-1)""*, such 
that the sum of the numbers A(n,k) for k = 1(1)n should be 

1. The numbers may be made positive, either by taking the absolute 

value of the explicit result of AGARTRA or AGARTRB, or by removing 

the minus sign from the evaluation of the local variable R in their 

definition. 


It should be noticed that this hag for effect, that it is the alter- 
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nating sum of the elements of the reverse of the rows of this tri- 
angle that'is 1: 


CENTER 38" 1*ACARTRB B 
1 


34 
10 20 11 
35 84 77 29 


126 336 3936.26t 76 
462 1320 1815 1595 836 199 
1716 5148 7865 6234 5928 2587 S21 
6435 20020 33033 39585 34580 20895 7815 1364 


~/"O"IPACARTRE 19 
LY A TA TEE 


At the end of his paper (18), Agarwal poses the question if the num- 
bera A(n,k) have a "nice" combinatorial meaning. As far as we know, 
such a combinatorial meaning has not yet been found. 


8. The DFF Triangle 
In 1991, G. Ferri, M. Paccio, and A.D. D'Amico published a paper in- 
troducing a triangle whose elements of the nth row are the sequence 


D(n,k) with k = 1...n, sequence defined by the recursion algorithm 
(20): 


D(n,1) = 4 
D(a) = 1 n-i 
Dink) = D(ntyk) + XO Dnt) (2<kent) 


r=k-1 


The authors call this concept a DFF triangle, the acronym DFF being 
derived from the initials of their names. A defined function DFFSTRI 
based on the recursion algorithm shown, is for instance: 


vDFFSTRI(OI 
VZ+DFFSTRI N 
tit +UNS11/0,Z+(NL1)rCL1 
{21 Z+DFFSTRE N-1 
131 Zédrci, (4497) 46144902040 
9 


Aarden NO30  — 
CENTER 30*DFFSTR1 8 


1651 
1101571 
115 35 28 9 1 

1 21 70 84 45 11 1 
1 28 126 210 165 66 131. 


The nth row contains n elements. Rows are not symmetric. The sum of 
the elements of the nth row is the Fibonacci number Fo, q. For n>1, 
the sum of the elements on the acending diagonals of the triangle ia 
2772, The maximun of the domain of the right argument is N = 742, es 
D(742,332) = 1.31376298308 and D(743,332) exceeds the largest number 
representable 1.797695135E308. 


+/*DFFSTR£ 10 

125 13 34 89 233 610 1597 4181 
Per 111 
(13r1 0)/P HORS 19 

1 2 5 13 34 89 233 610 1597 4181 


10##/C1-110)28(3DFFSTR1 10),(119 1070 
1124 8 16 32 64 128 256 

1,2471619 
11248 16 32 64 128 256 


DFFSTRI uses implicit recursion. A defined function DFFSTR2, based 
on the same algorithm, but using a programmed recursion loop, may be 


vDFFSTR2I0) 

VZEDFFSTR2 N 
(11 FONCLY/O,ZECNLD I PCL 
12)  END:Ze2,ct,(+#22)4(1407),0 
(31  +(N>r2)/END 

v 


Benchmarks on cpu time have been done for N = 100(100)300. Results 
are shown on next page (in ms). 


The defined functions are very slow; for N = 300 the cpu time is ab- 
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N 100 200 300 


DFFSTR1 N 525 3335 10771 
DFFSTR2 N 502 3268 10741 


out 11 seconds. The power of the disclose function has been exploit- 
eà to calculate the sums of D(r,k-1}, It ia very simple, but the 
sums are evaluated each cycle of the loop. Less elegant, but much 
more efficient in cpu time, is tọ store those sums each cycle such 
that in the next cycle only the last term of the sums must be added. 
Defined functions DFFSTRA and DFFSTRB, based on this procedure, us- 
ing implicit recursion and a programmed recursion loop respectively, 
are for instance: 


VDFFSTRAIGIT 
vZ+DFFSTRA N 
11) AENSLIZO ZEANLIDPCL, Std 
12} ZtDFFSTRA N-i 
131 Se(t0Z245,0 
. [41 Ze2,c1,(414#92).0)+S 
v 
9DFFSTRBID3 
VZ+DFFSTRB NFS 
(11 +ENS1)/0,ZECNLIDP CL, SELO 
12) END:S+(#02)+5,0 
13) TeZe Che ( (148029, 0)45 
14) +(N>PZ) ZEND 
v 


Benchmarks on cpu time have been done for N = 100(100)500. Results 
are shown below (in ms): 


fan SSS 
DFFSTRA N 991 1626 
DFFSTRB N oa 904 1483 


4s N increases, DFFSTRB is from 7 to 21 times more efficient in cpu 
time than DFFSTR2. The cpu times for N = 200 are of the same order 


Las Nouvelles d 2PE N° 30 


as those for the other triangles treated in this paper. DFFSTRB is 
33% and 19% more efficient in cpu time than DFFSTRA for N = 100 and 
N = 200 respectively, rather considerable for that domain of N. 


Note: The coefficient of the polynomial which characterizes the 


transfer function of a ladder network formed by a cascade of 


identical uncoupled elementary cells belong to the rows of the Pas- 
cal triangle. In the case of direct coupling among interacting ele- 
mentary cells forming a ladder network, the polynomial coefficients 
are not those belonging to the Pascal triangle but those belonging 
to the DFF triangle (19). 
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Le Guide des Produits et Services APL 
par AFAPL 


Le Guide des Produits et Services APL a pour but de fournir aux lecteurs des 
informations utiles sur les interprètes APL, les produits APL et les services APL. 
disponibles sur le marché français tout en leur permettant de mieux connaître les 
fournisseurs. 


Ces derniers sont invités à nous faire parvenir la liste de leurs produits et 
services de façon à figurer dans notre Guide des Produits et Services APL. La 
date figurant après le nom de chaque fournisseur représente la date de dernière 
mise à jour de leur liste de produits ou services APL. 


Les prix sont indiqués en Francs Hors Taxes (port en sus). 


La publication de la liste des produits et services d'un fournisseur est un service 
gratuit offert par AFAPL aux sociétés Membres d'AFAPL. 


Abréviations utilisées dans les pages qui suivent: 


N Nouveau produit ou nouvelle version d'un produit 
F Promotion existant actuellement sur un produit 


Pour nous permettre de publier la liste de vos produits et services 
APL, prière de faire parvenir cette demière, imprimée, au plus tard un 
mois avant la parution d'un numéro au Secrétariat d'AFAPL. 


Avis : Les produits et services qui n'auront pas fait l'objet d’une mise 
à jour (version, prix) ne pourront plus être mentionnés. 
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PRODUITS APL 


Les produits ADAPTA DLS (Dynamic Logistics Systems): 


ADAPTA 10 KF HT Progiciel de Calcul de Programme 
MPS Directeur de Production å capacités 
finies. 
ADAPTA 85 KF HT Module optionnel 
PMP d'ADAPTA DLS MPS, 
pour le calcul du Plan 
Directeur 
d'Approvisionnement 
ADAPTA 85KF HT Module optionnel 
MSC d'ADAPTA DLS MPS, 


pour le calcul des flux logistiques entre 
les sites de production et de distribution 


ADAPTA 150 KF HT Progiciel de prévisions de ventes 
FBS 


10! 


Dyalog APL version 6.1 pour 
UNIX 


Run-Time System pour 
UNIX 
Interface ORACLE-APL 


Dyalog APL version 7.2 
pour Windows 3.1 et 
3411 


Dyalog APL version 8 

pour Windows 95 
Migrations vers la version 
72 

Depuis la version 6.3 

Depuis la version 7.1 
Migrations vers la version 
Windows 95 

Depuis la version 6.3 

Depuis la version 7.1 
Prague 

Mono-utilisateur 

Multi-utilisateurs 

Idem, code source 
fourni 


de 
18.000 
à 
120.000 
selon 
machine 
30% 


Prix 
selon 


machine 
10.800 F 


10.800 F 


5.000 F 
3.500 F 


6.500 F 
5.000 F 


900 F 
1.900 F 
2.900 F 
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Version disponible sur la 
plupart des plates-formes 
UNIX ou AIX: IBM, SUN, 
DEC, HP, ete... 


du prix de la licence 


Disponible sous UNIX 
pour les plates-formes 
IBM, SUN, HP, DEC. 
Possibilité d'achat groupé 
avec une licence Windows 
95 

Run-Time system gratuit 
Sortie prévue : Mars 1996 
Run-Time system gratuit 


Possibilité d'achat groupé 
avec une licence Windows 
95 


Utilitaires d'impression et 
de mise à jour de tables 
pour Dyalog APL 


MICROLIS version 7.0 
sous Windows 3.1 et 
Windows 95 


Langage et Manuels J 


de 38700 F 
à 12400 F 


Système d'Aide å la 
Décision avec Base de 
Données, Simulations 
et Interrogations avec 
calculs sur les 
variables. 


J.3.03 (pour le reste, 
voir les tarifs dans le 
N°19) 


APL+Win Training 


APL+Win 3.0 


Maj APL+Win 1.8-2.0 à 3.0 
Maj APL+Win 1.0-1.3 à 3.0 
Migration APL+Dos ou 


APL+PC (tte version) è 
APL+Win 3.0 


3.000 F 


15.000 F 


3.750 F 
10.125 F 


11.625 F 


Contient 14 cours de 
formation avancée à 
APL+Win (1070 pages de 
documentation et 27 
espaces de travail avec 
objets et fonctions 
réutilisables, dont une 
Base de Données 
Relationnelle APL) 


APL+ pour Windows 3.1, 
95,98,NT avec support 
DLL, VBX, OCX, COM, 
DDE et licence Run Time 
illimitée. (CDROM) 
(livré sur CDROM) 

{livré sur CDROM) 


(livré sur CDROM) 
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N Migration compétitive à 11.625F (livré sur CDROM) 


APL+Win 3.0 
N APL+Link Pro 2.0 6.000F Accès direct depuis 
APL+Win aux bases de 
données SQL standard 
disposant d’un driver 
ODBC (Access, Paradox, 
Oracle, Sybase, ...) ainsi 
qu’à EXCEL, fichiers 
texte 
Voir Outils APL ci-après 
N  APL#Dos 6.0 13.875F  APL+ 2ème génération 
pour DOS avec Contrôles 
de Structures et 
compatibilité APL2 
Maj APL+Dos 5.x à 6.0 2.250F 
Maj APL+Dos L.x-4.x à 6.0 6.000 F 
Maj APL+PC à APL+Dos 8.250 F 
6.0 
N APL+Dos 6.0 Licence Run 4.125F 
Time illimitée 
N Maj APL+Dos 6.0 Licence 2.125 F 
Run Time illimitée 
APL#PC version FLO 
N  APL+PC 11.0 2.650F  APL+ 1 génération pour 
DOS sans Contrôles de 


Structures, ni compatibilité 
APL2 (limité à 640K) 
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N Maj APL+PC xx à 14.0 1.125 F 
APL+Unix 5.2 de 
25.600 F 
à 288.000F 
selon 
matériel 
APL+Unix 5.2 Run Time 15% du 
Systems prix de la 
licence 
Dyalog APL 7.4+8.2 13.950 F 
Dyalog APL 8.2 11.450 F 
Dyalog APL 7.4 11.450 F 
Maj Dyalog APL 
Dyalog APL Abonnement 
DSS 


Interprète APL+Unix 
fonctionnant sous 
Xwindows (avec Contrôles 
de structure et 
compatibilité APL2) sur: 

~ stations SPARC de SUN 
~ stations DEC (excepté 
Alpha) 

~ stations HP IX 

- IBM RS/6000 


Version exécutable 
Seulement de 
l'interprète APL+Unix 


APL 16 et 32 bits pour 
Windows 3.x,95,98,NT 


APL 32 bits pour 
Windows 95,98,NT 


APL 16 bits pour 
Windows 3.x 


Consulter site Web 


bttp://www.lescasse.com 


Abonnement permettant 
l'obtention de mises à jour 
de Dyalog APL par 
Internet pour un an 
Consulter site Web 


http://www. lescasse. com 
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N 


APL+Win Training 


DLL Parser pour APL+Win 
3.0 


Delphi Form Translator 
pour APL+Win 3,0 


Livre "Programming with 
APL and Delphi" 


Rain Pro 4.2 pour 
APL+Win 


New Leaf 1.5 pour 
APL+Win 


Rain Pro 4.3 pour Dyalog 
APL 


New Leaf 1.5 pour Dyalog 
APL 


GraphX+ChartFX pour 
APL+Win 


3.000 F 


1.450 F 


1.450 F 


500 F 


2.450F 


3.950 F 


2.450 F 


3.950 F 


5.950 F 


Contient 14 cours de 
formation avancée à 
APL+Win (1070 pages de 
documentation et 27 
espaces de travail avec 
objets et fonctions 
réutilisables, dont une 
Base de Données 
Relationnelie APL) 
Constitution automatique de 
déclarations de fonctions de DLL 
pour APLW.INT 


Permet de traduire des 
fenétres Delphi en fenétres 
APL+Win 3.0 


Livre de 200 pages 
expliquant comment 
exploiter Detphi dans ses 
développements APL 


Progiciel graphique pour 
APL+Win 


Progiciel de PAO pour 
APL+Win 


Progiciel graphique pour 
Dyalog APL 


Progiciel de PAO pour 
Dyalog APL 


Progiciel graphique pour 
APL+Win + Contréle 
ChartFX 


uvellos LAPL N° 


GraphX Lite pour 
APL+Win 


AZERTY li 


APL+Dos Toolkit II 5.2 


Maj APL+Dos Toolkit II 
4xà52 


3.450 F 


39.000 F 


4.000 F 


Progiciel graphique pour 
APL+Win 


Support parfait du clavier 
français pour APL*PLUS 
IL (V4,V5) 


Base de Données 
Relationnelle APL et 
ensemble complet d'outils 
de développements en 
APL+Dos 


Contient un générateur de 
rapports avec ruptures, 
sous-totaux;, champs 
calculés, mise en page 
automatique 
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SERVICES APL 


Formation et Perfectionnement APL, 
Développements, Reprises d'Applications, Diffusion 
de DYALOG APL. 


Régie, Conduite de Projets APL, Formations APL 
(débutant et perfectionnement), Portage d'application 
APL, Développements d'application et de produits 
Windows en APL, Diffusion des gammes de 
produits APL+ et Dyalog APL 


Travaux de Conseil, de Formation, de Conduite de 
Projets dans un contexte APL ou traditionnel. 


Travaux de Conseil et Développements en APL (tous 
types, y compris SHARP APL & J). 
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ugustin folveck 
10 Avenue Mendés-France 
67300 SCHILTIGHEIM 
tél: 03-88-19-14-14 
fax: 03-88-81-09-37 
Messagerie Compuserve 100617,3453 


Mr. Bernard Legrand 
74-80, Rue Roque de Fillol 
92800 Puteaux 
tél.:01-46 92 09 57 

fax: 01-46 92 06 86 


Mr. Eric Lescasse 

18, Rue de la Belle Feuille 

92100 - BOULOGNE 
tél.:01-46-05-10-76 

fax 01-46-04-60-23 

E-mail: eric@lescasse.com 

Web site: http://www.lescasse.com 


(Ingénieur Conseil) 
57 av. du Dr. Durand 
94110 ARCUEIL 
tél:01-46-55-91-57 
fax:01-46-54-43-72 


SYLICOM 


Mr. Sylvain Baron 

184 rue Marcel Hartmann 
94200 IVRY / SEINE 
té1.:01-45 21 98 50 

fax 01-45 21 98 51 
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Bulletin d’Adhésion et de Contact 


Aidez votre Association ! 


Communiquez-nous les coordonnées complètes d'autres personnes de voire 
connaissance, intéressées par le langage APL. 


Nous nous ferons une obligation de leur faire parvenir un numéro gracieux des 
"Nouvelles d'APL". 


Jls auront ainsi la possibilité d'évaluer l'intérêt pour eux de devenir Membre de 
notre Association. Ceci bénéficiera également à vous tous : en augmentant notre 


nombre d'adhérents, notre revue prendra encore plus d'essor. 


Nous vous en remercions à l'avance. 


A retourner au Secrétariat Général de 1’ Association AFAPL: 


174 Bd de Charonne 
F-75020 PARIS 


Imprimé par ISI - 68-70, Rue des Pyrénées - 75020 PARIS 
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Association Francophone pour la promotion du langage APL 


Association régie par la loi de 1901 
174 Bd. de Charonne 75020-PARIS Tél. & Fax : 01 43 56 31 79 


BULLETIN D'ADHESION 1999 


Courier électronique 


Adresse privée : 


Adresse | 
Adresse (suite) 

Code postal 
Bureau distributeur 


FAX 
{Courrier électronique 


Où envoyer la revue Les Nouvelles d'APL ? (cocher la case appropriée) 


Adresse professionnelle 
Adresse privée 


Cotisation (accompagner l'adhésion du chèque bancaire correspondant) : 


Personnelle 
Société 
Abonnement étranger 


350 Francs (incluant l'envoi de la Revue} 
2 800 Francs (avec droit au Catalogue Produits) 
100 Francs (supy pédition si hors CEE) 


m 
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La vie de l’ Association 


Calendrier des Prochaines parutions 


Articles Publicités Parution 
N°30 15 Juin 1999 28 Juin 1999 Juillet 1999 
N°31 15 Octobre 1999 28 Octobre 1999 Novembre 1999 


Les dates indiquées sont les dates-limite de remise des articles et des 
publicités. Envoyez-nous vos articles sous forme de fichier texte pur ou, de 
préférence, sous forme de document Word. (On peut maintenant accepter des 
articles écrits sur Macintosh (Word 4.1 ou 5.1) aussi bien que sur PC.) Dans tous 
les cas, nous souhaitons recevoir aussi une impression contrastée, type laser, de 
vos articles. (Eviter les envois de textes sans disquette, merci). Voir également 
les recommandations de la Note de la Rédaction. 


Tarif des publicités 


Les tarifs des publicités sont les suivants: 


Les typons doivent être remis, accompagnés du règlement, au plus tard un mois 
avant la parution du numéro dans lequel ils doivent être insérés. 


Les publicités peuvent nous parvenir sous forme de pages A4 imprimées en noir 


et blanc sur papier blanc, de préférence sur imprimante laser. Elles seront 
reproduites telles quelles dans la revue de notre Association. 
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